Работа функции Sleep

[delphinewerklin]

Возникли проблемы. Нужно чтобы функция задерживала время в середине процедуры на 10 сек, а она вместо этого задерживает в начале.

procedure lvl1;
begin
 Form1.lProm2.Caption := '0';
 Form1.lPop2.Caption := '0';
 Form1.lVistrel2.Caption := '0';


 Form1.lvl1Lable.Caption := 'Óðîâåíü 1!';
 Form1.lvl1Lable.Visible := True;


 Form1.PictureBtn.Enabled := true;
 Form1.PictureBtn.Visible := true;
 Form1.StopBtn.Enabled := true;
 Form1.StopBtn.Visible := true;
 Form1.lpop.Visible := true;
 Form1.lpop2.Visible := true;
 Form1.lProm.Visible := true;
 Form1.lProm2.Visible := true;
 Form1.lVistrel.Visible := true;
 Form1.lVistrel2.Visible := true;
 Form1.Timer1.Enabled := true;

Sleep(10000);




end;

[selenux]

Перед вызовом функции sleep (кстати, где он у Вас?) поставьте Application.ProcessMessages