TImage a TStream

[mjjj]

Estimados, he tenido que retomar este tema, pero sigo sin poder resolverlo.
Para evitar tener que trabajar con DataSnap (ya que aún no lo conozco por completo), he intentado enviar la imagen por medio de un servidor FTP, y ocurre que logro guardar la imagen en el servidor, pero esta tiene un tamaño de 0 byte.

Código Delphi [-]
procedure ...
var
   Stream: TMemoryStream ;
begin

  Stream:= TMemoryStream.Create;
  Stream.Position:= 0;
  image1.Bitmap.SaveToStream(Stream);

// me aseguro que el memorystream tengo alguna imagen, y efectivamente aparece la imagen en el segundo TImage
  image2.Bitmap.LoadFromStream(stream);

with idftp1 do
try
disconnect;
passive:=true;
Connect;

Put(Stream, 'MAS.JPG', FALSE);

finally
      STREAM.Free;
      idftp1.Disconnect;
 
end;

Esto no arroja ningún error, pero tampoco la imagen que deseo en el servidor.
Que podrá ser ???