Hallo,
vielleicht ist ja Image selbst nicht so gut als Ansatz. Hast du es mal mit dessen Eigenschaft Picture probiert?
Delphi-Quellcode:
type
TPictureEx = class(TPicture);
procedure TDemoForm.ButtonClick(Sender: TObject);
var
s: TStream;
begin
s := TMemoryStream.Create;
try
TPictureEx(Image.Picture).SaveToStream(s);
s.Position := 0;
TCPClient.WriteStream(s);
finally
s.Free;
end;
end;
Getippt und nicht getestet.
Grüße vom marabu