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

 memostr:=Tmemorystream.create;

 memostr2:=Tmemorystream.create;

socket.ReceiveBuf(memostr, sizeof(TMemoryStream));
memostr2.copyfrom(memostr,memostr.size-6);


memostr2.write(RecRecord, SizeOf(TMyRecord));					

1:
2:
3:

sendrecord.s1:='Zonk';
sendrecord.s1:='Döner Kebab';
Socket.SendBuf(Sendrecord, SizeOf(TMyRecord));					

1:
2:
3:
4:

socket.ReceiveBuf(recrecord, sizeof(TMyRecord));

showmessage(RecRecord.s1);
showmessage(RecRecord.s2);					

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:
30:
31:
32:
33:
34:
35:
36:
37:

type
   myrec = record
    rec1 : ShortString;
    rec2 : Shortstring;
 end;

...

var ms : TMemorystream;
    mrec,mrec2 : Myrec;
    i : Integer;
    s,s2 : Shortstring;
begin

mrec.rec1 := 'Zeile 1';
mrec.rec2 := 'Zeile 2';
s := 'Hallo';
i := Sizeof(mrec);

ms := TMemorystream.Create;

// String + Record in Stream schreiben
ms.WriteBuffer(s,6);         // ! länge des Strings + 1
ms.writeBuffer(mrec,i);

//String + Record wieder extrahieren
ms.Position := 0;             // !
ms.ReadBuffer(s2,6);      // ! länge des Strings + 1
ms.position := 6;            // !
ms.Readbuffer(mrec2,i);

//Testen
memo1.Lines.Add(mrec2.rec1);
memo1.Lines.Add(mrec2.rec2);
memo1.lines.add(s2);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var i : Integer;
    p : PChar;
    ms : TMemorystream;
begin

i := socket.ReceiveLength;
 getmem(p,i);                //Speicher reservieren
 socket.ReceiveBuf(p^,i);    //Puffer in den PCHar legen

 ms := TMemorystream.Create;
 ms.Write(p^,i);             // Puffer in einen Stream laden
 freemem(p);

end;					

1:
2:

socket.SendText('Daten'+inttostr(sizeof(sendrecord)));
Socket.SendBuf(Sendrecord, SizeOf(sendrecord));					

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:
30:
31:
32:
33:
34:

procedure TForm4.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
if AwaitRecord=true then begin
 socket.ReceiveBuf(recrecord, awaitrecordsize);
showmessage(RecRecord.s1);
showmessage(RecRecord.s2);
awaitrecord:=false;
end;




received:=socket.ReceiveText;
form3.Label1.Caption:='Connected !';



if copy(received, 1, 5) = 'Daten' then begin
if (MatchesMask(received,'*´ÉM')) then begin
 clientsocket1.Socket.SendText('Record');
 abort;
end;


//showmessage(received);
memo1.Lines.Add(received);
Delete(received, 1, 5);
AwaitrecordSize := StrToInt(received);




Awaitrecord:=true;
end;