stream wird nicht versendet

[Jens Schumann]

Hallo,
versuch mal folgendes: Stream2.Seek(0,soFromBeginning);

Delphi-Quellcode:

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