[jhonny]

Si la imagen ya está cargada, debería bastar con esto:

Código Delphi [-]
var VStream: TStream;
begin
   VStream := TMemoryStream.Create;
   Image1.Picture.Bitmap.SaveToStream(VStream);
end;

Donde Image1 es el objeto TImage que ya tiene la imagen cargada.