[nattaella]

При нажатии на кнопку BitBtn1 у меня одновременно должны начать выполняться процедура RunRight(0); и в LEdit4 показываться числа от 15 до 0 с интервалом в 1 сек. :

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.BitBtn1Click(Sender: TObject); var p:integer; begin RunRight(0); for i:=5 downto 1 do begin LEdit4.Text:=inttostr(i); sleep(1000); Application.ProcessMessages; LEdit4.Text:=inttostr(i-1); end; end;

Как сделать, чтоб они выполнялись одновременно? Может использовать потоки?