Передать статический record по сети

[Toland2]

Всем добрый вечер. Помогите пожалуйста разобраться с передачей по сети статического рекорда

Вот моя структура:

type
TArray_Data = packed record
  fText_a: String[10];
  a:integer;
end;

На форме клиента у меня есть таймер с интервалом 10мс. Вот код таймера:

procedure TForm1.Timer3Timer(Sender: TObject);
var 
Data:TArray_Data;
begin
 Data.fText_a:='Тут потом будет какой-нибудь текст';
 Data.a:=10;
 ClientSocket1.Socket.SendBuf(Data,Sizeof(Data));
end;

На сервере принимаю так:

//Unit1.pas
procedure TForm1.ServerSocket1GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
    SocketThread := TMySocketThread.Create(False,ClientSocket);
end;


//Unit2.pas

Procedure TMySocketThread.ClientExecute;
Var Stream  : TWinSocketStream;
    L : Integer;
    var Data:TArray_Data;
Begin
  Try
    Stream := TWinSocketStream.Create(ClientSocket, 60000);
  Except
    ClientSocket.Close;
    Terminate;
    Exit;
  End;
  While (not Terminated) and ClientSocket.Connected do
  Begin
    If Stream.WaitForData(10) then
    Begin
      L := ClientSocket.ReceiveLength; 
      If L = 0 then
      Begin
        ClientSocket.Close;
        Terminate;
        Break;
      End;
        ClientSocket.ReceiveBuf(Data,SizeOf(Data);
       //Тут выполняется какое-нибудь действие с полученными данным
      form1.memo1.lines.add(Data.fText_a);
      form1.Shape1.left:=form1.shape1.left+Data.a;
    End;
  End;
  Stream.Free;
End;

Проблема заключается в том, что когда запускаю клиент и сервер на разных компьютерах,
TShape двигается достаточно медленно и рывками, а когда запускаю на одном компе - все происходит как надо.

Подскажите пожалуйста, правильно ли я делаю? Может есть другой, более оптимальный способ для этого?