Przerwa w wykonywanych instrukcjach

Hej! mam pytanie, jaką instrukcją zrobić przerwe, której argumentem byłby czas wstrzymania, w wykonywaniu instrukcji tak aby nie blokować całego programu (sleep). Np.:

Label1.Caption:='aaa';
\instrukcja wstrzymania, ale program dalej normalnie pracuje;
Label2.Caption:='bbb';

Prosze o szybką pomoc ! Z góry dzieki ;-)

Watki!!

ewentualnie pętelka z processmessages. ale to ewentualnie.

http://www.delphiqa.org.pl/, a konkretniej http://www.delphiqa.org.pl/techniques/qa039.html

A może coś takiego?

procedure OdmierzCzas(czas:Integer);//w ms
var
c1,c2:Integer;
begin
c1:=DateTimeToTimeStamp(Now).Time;
c2:=c1;
repeat
c2:=DateTimeToTimeStamp(Now).Time;
until c2-c1>=czas;
end;

// "tak aby nie blokować całego programu" - ŁF

To tylko co napisali foflik i ŁF