probleme mit sendbuf und receivebuf

[ThoLor]

hallo...

beschäftige mich zum ersten mal mit sockets und bin mit textversenden auch gut klargekommen. Nun wollte ich ein kleines prog schrieben, welches dem prog (auf anderem rechner) seine formularkoordinaten zusendet (in form eines records). der server soll die daten dann enpfangen und sein formular an diese koordinaten verschieben. connection steht, doch sobald ich beim client auf den "senden"-button drücke, komm win socket error 10054 auf BEIDEN rechnern. also da funzt was, abenicht richtig ^^ hier mal ein bissel code...

Delphi-Quellcode:

//das macht er, wenn ich auf senden klicke
//package ist eine private-variable in der klasse tform1 vom typ des records mit den beiden integervariablen

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
  server.Socket.ReceiveBuf(package,sizeof(package));
  left := package.x;
  top := package.y;
end;

bitte um schnelle hilfe, habe heute frei ^^

[edit=sakura] [delphi]-tags Mfg, sakura[/edit]