Visualizar imagem salva no FTP com um TImage

[masterbsb 2]

E aí pessoal, tenho a necessidade de exibir em um timage uma imagem que tá hospedada em servidor ftp, vasculhando aqui mesmo no fórum, encontrei esse código que exibe no timage uma imagem hospedada na web, só que não consegui adaptar o código para o ftp, se alguém puder me ajudar, ficarei muito grato! Abraços!

 

segue o código:

 

procedure TForm1.Button1Click(Sender: TObject);
var
  strm:Tmemorystream;
  bmp:TPNGObject;
begin
   if (estaConectado) then // função que verifica se há conexão com a internet.
   begin
      strm:= Tmemorystream.Create;
      bmp := TPNGObject.Create;
      try
         idhtp1.Get(edit1.text,strm);
         strm.Position := 0;
         bmp.LoadFromStream(strm);
         try
            img1.Picture.Bitmap.Assign(bmp);
         except
            on E: Exception do
               begin
                  ShowMessage('Não foi possível carregar a imagem. ' + #13 +
                           E.ClassName + #13 +
                           'Erro: ' + E.Message);
               end;
         end;
      finally
         strm.Free;
      end;
   end
   else
      begin
         ShowMessage('Não está conectado.');
      end;
end;

function TForm1.estaConectado: boolean;
var
   flags : DWORD;
begin
// verifica se está conectado a internet usando a API do Windows. É preciso declarar a uses WinInet.
if not InternetGetConnectedState(@flags, 0) then
   result := false
else
   result := true;
end;

 

[Roberto Fagundes 40]

Ocorre algum erro? Se ocorre qual é esse erro?

[masterbsb 2]

então, nesse código que mostrei, eu só fiz a seguinte alteração:

 

troquei o : idhtp1.Get(edit1.text,strm);

por : idftp1.Get(edit1.text,strm);

 

mais dá esse erro:

 

 

 

outra dúvida, esse exemplo serve apenas para png, gostaria de fazer para jpeg e tiff! Muito obrigado pela ajuda brother, abraços!