stream wird nicht versendet

[Spurius]

Hallo,
ich hab mal wieder ein Problem mit Streams: Warum wird im folgenden Code das Bild nicht versendet?

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 server.Active := true;
 memo1.Lines[0] := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 client.Connect();
end;

procedure TForm1.serverExecute(AThread: TIdPeerThread);
Var Stream: TMemoryStream;
begin
 Stream := TMemoryStream.Create;
 Athread.Connection.ReadStream(Stream, SizeOf(Stream));
 Image2.Picture.Bitmap.LoadFromStream(Stream);
 Image2.Picture.SaveToFile('c:\testbild.bmp');
 Stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var Stream2: TMemoryStream;
begin
 Stream2 := TMemoryStream.Create;
 Image1.Picture.Bitmap.SaveToStream(Stream2);
 Client.WriteStream(Stream2);
 Stream2.Free;
end;

end.

Hoffe ihr könnt mir helfen,
Gruß
Spurius