В такой ситлуации я использую модальное окно из потока
Код:
img:=TMemoryStream.Create;
Http.get('http://' + FUrl + 'image.php?', img);
new := TStringList.Create;
png := TPNGObject.Create;
img.Position:=0;
png.LoadFromStream(img);
Form2.Image1.Picture.Assign(png);
Form2.ShowModal;
code:=FOrm2.edit1.text;
if code <> '' then
inf.Add('username=' + Login);
inf.Add('password=' + Password);
inf.Add('code=' + code);
Http.Post('http://' + FUrl + 'login.php', inf);