[jamlaboira]

Me faltaba un simple Form1. delante (ya que el control está en Form1...)

De todas formas, me he dado cuenta de que el fichero origen está en formato indirecto a traves de un extractor de imágenes cgi y no me funciona, pongo un ejemplo real a ver si alguien tiene una idea feliz, a mi no se me ocurre nada de nada...

Código Delphi [-]
 procedure PedirImagen( URL, FICHERO, DIR_DESTINO:string );
  var
    Stream      : TFileStream;
  begin
  { re-crear el DIRECTORIO de destino por si no estuviese }
    ForceDirectories( DIR_DESTINO );
    Stream  := TFileStream.Create( DIR_DESTINO + '\' + FICHERO, fmCreate);
    try
      Form1.idHttp.Get ( URL + '/' + FICHERO, Stream );
    finally
      Stream.Free;
    end;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PedirImagen( 'http://www.infortisa.com/spa/item/extractimg.cgi?action=large&code=420038', '420038.jpg', 'c:\pruebas\imagenes' );
end;

Gracias por anticipado...!!