Код выполняется не по порядку

[Серёга Русич]

Добрый вечер, уважаемые!

Пишу программу, которая заполняет шаблон данными:
При нажатии на кнопку данные из StringGrid'а распихиваются по Label'ам, в Image загружается изображение из файла, после чего делается скриншот формы и получившееся изображение сохраняется в файл. Но у меня почему-то делается сначала скриншот формы и только после этого заполняются label'ы и подгружается изображение, хотя последовательность действий в коде верная

Вот, собсно, кусок кода:

procedure TForm1.Button2Click(Sender: TObject);
var
  S : String;
  i, Len : Integer;
  SignZ: Integer;
  Pol: String;
  Vozrast: Integer;
  VozrastFolder: String;
  bmp:TbitMap;
  SendJPG:TJPEGImage;
begin


//Внести данные из таблицы в лейблы
Form2.Label1.Caption:=StringGrid1.Cells[8, 1];
Form2.Label4.Caption:=StringGrid1.Cells[9, 1];
Form2.Label2.Caption:=StringGrid1.Cells[10, 1];
Form2.Label6.Caption:=StringGrid1.Cells[2, 1];
Form2.Label7.Caption:=StringGrid1.Cells[3, 1];
Form2.Label8.Caption:=StringGrid1.Cells[4, 1];

//Загрузить изображение
Form2.SignZav.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Data\Signatures\' + '1' + '.jpg');

//Сохранение в файл готового изображения при помощи скриншота
bmp:=tbitmap.Create;
SendJPG:=TJPEGImage.Create;
bmp.Width:=form2.Width;
bmp.Height:=form2.Height;
BitBlt(bmp.Canvas.Handle,0,0,form2.Width,form2.Height,getdc(form2.handle),0,0,SRCCOPY);
SendJPG.Assign(bmp);
DoneImage.Picture.Assign(SendJPG);
DoneImage.Picture.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Content\' + Form1.StringGrid1.Cells[0, 1] + '.jpg');
end;

До выполнения данного кода вторая форма уже открыта
Подскажите, пожалуйста, в чем может быть проблема?

[Аватар]

Сделай репаинт или рефреш формы перед скриншотом

[kropotkina-alice]

Есть такая полезная штука - Application.ProcessMessages...

[Серёга Русич]

Сообщение от Аватар

Сделай репаинт или рефреш формы перед скриншотом

Спасибо большое! Репеинт помог

Сообщение от kropotkina-alice

Есть такая полезная штука - Application.ProcessMessages...

Спасибо, почитаю про неё на досуге