Fórum Exibir imagem salva no FTP em um Timage #471892

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;