Bajar fichero por ftp usando TIDFtp

[chux]

Buenas, necesito hacer una aplicacion que suba y baje fotos de una ftp, las tareas de uploads las realiza correctamente, pero no consigo bajar ficheros...

Estoy usando el procedimiento get de un idftp Esto es lo que llevo

Código Delphi [-]
var
  fichero : Tidstream;
begin
  fichero := tidstream.Create;
  try
    self.IdFTP1.Connect;
    self.IdFTP1.ChangeDir('htdocs/images/ofertas/');
    self.IdFTP1.Get(self.ZTable1.FieldByName('foto').asstring,fichero);
  except
    on e : exception do
      showmessage('ERROR al cargar la imagen: ' + e.Message)
  end;
end;

El error esta en la variable del tipo tidstream, ya que al llegar al get me dice que seek not implemented...

Bueno saludos y gracias