[gusluk]

Есть код

Код:

x:=0;
while x<100 do
begin
y:=F(x);
x:=x+1;
if outGraf=true then 
begin
Form1.Image1.Canvas.Draw(x,y,Pix);
...
КОД
...
end;
end;

Как сделать чтобы программа после вывода на экран картинки ждала например 1 секунду и продолжала работу?
Если вставить sleep(1000) то графика не отображается.
Пробовал сделать через таймер но тоже не получилось так как эта часть программы выполнялась вместе с таймером.