probleme mit sendbuf und receivebuf

[Manzoni]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  If client.Active then 
  begin 
    package.x := left; 
    package.y := top; 
    client.Socket.SendBuf(package,sizeof(package)); 
  end; 
end; 


//wenn der server was empfängt, soll er folgendes machen 

procedure TForm1.ServerClientRead(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
  Socket.ReceiveBuf(package,sizeof(package)); 
  left := package.x; 
  top := package.y; 
end;