procedure TForm1.BitBtn2Click(Sender: TObject);
var
  MS : TMemoryStream;
  GIf: TGIFImage;
begin
      if CheckUrl(edit1.Text) = true then
      begin
          MS := TMemoryStream.Create;
          GIf := TGIFImage.Create;
          try
            IdHTTP1.get(edit1.Text,MS);
            Ms.Seek(0,soFromBeginning);
            Gif.LoadFromStream(MS);
            image1.Picture.Assign(GIF);
          finally
            FreeAndNil(GIF);
            FreeAndNil(MS);
          end;
      end
      else
      begin
        MessageBox (0, 'Hostname tidak ditemui','Pemberitahuan', MB_OK);
      end;
end;

10054 Connection reset by peer, dan proses berhenti pada

Ms.Seek(0,soFromBeginning);

@mas_kofa: itu program buat apa seh mas? kok pake komponen http...... ??!!!

@mas_kofa: BMKG kemayoran?