1:
2:
3:
4:
5:

TMyRecord = packed record
  bla    : Integer;
  blub   : Byte;
  thing  : array[0..4] of Longword;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TMyClass.PutGetAByteArray(var myarray:array of byte);
begin
  if myarray[2]=0 then
    myarray[2]:=5;
end;

function TMyClass.ConvertRecordToArray():Boolean
var
  aRecord:TMyRecord;
  anArray:array of Byte;
begin
  //aRecord wird mit 0en gefüllt
  ...

  //hier die Stelle wo ich Eure Hilfe brauche
  //???Umwandlung des Records in Array
  //???anArray:=aRecord;
  
  PutGetAByteArray(anArray);

  //hier die Stelle wo ich Eure Hilfe brauche
  //???Umwandlung des Arrays zurück zum Record
  //???aRecord:=anArray;

  //hier sollte bla den Wert $0050 haben
  if bla=$0050 then
    Result:=true;
end;					

1:
2:
3:
4:

function TMyClass.PutGetAByteArray(var myarray:array of byte);
begin
  transcryptor.SendReceiveData(myarray);
end;					

1:

function TTransCrypt.SendReceiveData(var Data:array of byte):Longword;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  TTestRec = packed record
    T1, T2: Integer;
  end;
  TByteArray = array of Byte;

function PutGetAByteArray(var myarray: array of byte): Longword;
begin
  //transcryptor.SendReceiveData(myarray);
  ShowMessage(IntToHex(myarray[0],2)+
              IntToHex(myarray[1],2)+
              IntToHex(myarray[2],2)+
              IntToHex(myarray[3],2)+#13+
              IntToHex(myarray[4],2)+
              IntToHex(myarray[5],2)+
              IntToHex(myarray[6],2)+
              IntToHex(myarray[7],2));
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    test: TTestRec;
    p: Pointer;
begin
  test.T1 := $12345678;
  test.T2 := $DEADBEEF;
  p := @test;
  PutGetAByteArray(TByteArray(p));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  rec: TMyRecord ;
  bla: array of Byte;
begin
  SetLength(bla, SizeOf(rec));
  CopyMemory(@bla[0], @rec, SizeOf(rec)); // weiß jetzt selbst net ob zuerst src oder dst kommt
  SendReceiveData(bla);
  
  // jetzt kann bla verändert worden sein, d.h. auch die Größe!
  // deshalb kann es nicht sofort zurückkopiert sein (der Recv Record kann anders aussehen)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type
  TMyRecord = packed record
    a, b: integer;
  end;
  TByteArray =  array of byte;


procedure Test(var Param: array of byte); stdcall;
begin
  MessageBoxA(0,PChar(Format('%d',[length(Param)])),nil,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TestRecord: TMyRecord;
  P: Pointer;
  myarray: TByteArray;
begin
  TestRecord.a := $12345678;
  TestRecord.b := $78563412;
  p := @TestRecord;

  Test(TByteArray(p)); // Narses

  SetLength(myarray, SizeOf(a));
  CopyMemory(@myarray[0],@a,SizeOf(a));
  Test(myarray); // Meins
end;