WinSocket Bild versenden

[Tzuxy]

Hy liebe Delphianer,
ich habn Netzwerkprogramm geschrieben und möchte nun mit den WinSockets gerne ein Bild übertragen. Leider kommt immer nur ein Bild mit 0kb an. Was ist das los
Habn schon das ganze Forum umgepflügt, aber nichts gefunden...
Hier der Quellcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FStream : Tfilestream;
begin 
 FStream := TFileStream.Create('C:\Dokumente und Einstellungen\MattiVsRob\Desktop\tele3.bmp', fmOpenRead);
clientsocket1.Socket.SendStream(FStream);


end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

var
stream:Tfilestream;
begin
stream.free  ;
Stream := TFileStream.Create('C:\Dokumente und Einstellungen\MattiVsRob\Desktop\tele100.bmp', fmCreate or fmOpenWrite);


end;

end.

Alles klar

bis denn dann

robert