[delphi] klient-serwer przesył danych

Witam wszystkich :)

Mam oto taki problem:(: mianowicie stworzyłem sobie serwer i klienta, oparłem je o TServerSocket i TClientSocket. Wysyłam klientem kilka rekordów do serwera, ale serwer odczytuje tylko pierwszy(choć nie zawsze). W jaki sposób idzie rozwiązać ten problem?

Wysyłam poprzez

Client.Socket.SendBuf(rekord1,SizeOf(rekord1));

Client.Socket.SendBuf(rekord2,SizeOf(rekord2));

Client.Socket.SendBuf(rekord3,SizeOf(rekord3));

a odbieram

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
begin
     Socket.ReceiveBuf(rekord1,SizeOf(rekord1));
     memo1.lines.add(rekord1.dana+' oraz '+rekord1.msgg);
     Socket.ReceiveBuf(rekord2,SizeOf(rekord2));
     memo2.lines.add(rekord2.inf+' '+rekord2.wdt);
     Socket.ReceiveBuf(rekord3,SizeOf(rekord3));
     memo3.lines.add(rekord3.dana+' :'+inttostr(rekord3.tfg1));
end;