ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses jpeg;

.........

var
  Img : TJpegImage; 
  Ms   : TMemoryStream;
begin
  Img := TJpegImage.Create;
  Ms := TMemoryStream.Create;
// Запрашиваем картинку и пишем ее в память
  Http.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Ms);
  Ms.Position := 0;
// Грузим картинку из памяти
  Jpg.LoadFromStream(ms);
  Image1.Picture.Graphic := jpg; // Отображаем в Image1
// Чистим память
  jpg.Free;
  Ms.free;
end;