Dateisenden per TSocketServer/Client

[night]

Hi, ich veruche eine einfache Datei zu versenden,per TSocketserver/Client. Ich habs auch schon mit den Indys versucht, aber da läuft gar nichts. Selbst bei den Demos kommen viele Fehlermeldungen ... dann habe ichs so versucht:

http://www.dsdt.info/tutorials/winsocket/?page=4

Das Sendtext hat wunderbar funktioniert. Leider geht das mit dem Record nicht so. Ich habe auch hier schon ein paar Lösungswege gefunden, doch leider lief das alles nicht .

Mein Record:

Delphi-Quellcode:

  TSendDatei = record
    FName: String[20];
    Datei: TMemoryStream;

Server

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var   Data: TSendDatei;
begin
  Data.Datei.Create;
  Socket.ReceiveBuf(Data,Sizeof(Data));
  Caption := Data.FName;
  Data.Datei.SaveToFile(Data.FName);
  Data.Datei.Free;
end;

Client

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Data: TSendDatei;
begin
  if Opendialog1.Execute then
  begin
    Data.Datei := TMemorystream.Create;
    Data.Datei.LoadFromFile(Opendialog1.FileName);
    Data.FName := Opendialog1.FileName;
    ClientSocket1.Open;
    ClientSocket1.Socket.SendBuf(Data,Sizeof(Data));
    ClientSocket1.Close;
    Data.Datei.Free;
  end;
end;

Es passiert gar nichts. Nichtmal die Caption wird verändert!
Ich hoffe ihr könnt mir weiter helfen.

Mfg night