Probleme mit Dateiempfang von TSockets

[robinWie]

Hallo,
ich habe im Internet was gefunden umd mit den TSocket Komponenten Dateien zu schicken. Alles funktioniert auch wunderbar, nur wenn der Server die Datei empfangen hat, kommt es mir so vor, als ob sie nicht abgeschlossen wird. Dabei handelt es sich um ein JPG Bild. Erst wenn dich die Anwendung schließe, kann ich das Bild angucken. Hier der Code beim Empfangen:

Delphi-Quellcode:

procedure TMainForm.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
 FST: TFileStream;
 LEN: integer;
 BUF: Pointer;
begin
  FST := TFileStream.Create(TMP, fmCreate or fmShareDenyWrite);
  LEN := Socket.ReceiveLength;
  GetMem(Buf, Len);
  try
    Socket.ReceiveBuf(Buf^, Len);
    FST.Write(Buf^, Len);
  finally
    FST := nil;
    FST.Free;
  end;
end;

TMP = 'C:\Windows\Temp\tmp.jpg'

Gibt es bei TFileStream noch eine Prozedure, die ich vergessen habe?

Danke im Voraus