Visualizar imagem salva no FTP com um TImage

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;