Lauflicht mit 8LED's

[Assun]

OMG es geht !!!

Ihr wisst gar nicht wie mich das freut

soo, jetzt habe ich auch schon die erste Frage

wenn ich folgendes mache :

Delphi-Quellcode:

//////////////////// LED Night Rider /////////////////////////////
Anzahl := StrToInt(Edit1.Text);
for i:=1 to Anzahl do
begin
out32(888,1);
sleep(255);
out32(888,2);
sleep(255);
out32(888,4);
sleep(255);
out32(888,8);
sleep(255);
out32(888,16);
sleep(255);
out32(888,32);
sleep(255);
out32(888,64);
sleep(255);
out32(888,128);

out32(888,128);
sleep(255);
out32(888,64);
sleep(255);
out32(888,32);
sleep(255);
out32(888,16);
sleep(255);
out32(888,8);
sleep(255);
out32(888,4);
sleep(255);
out32(888,2);
sleep(255);
out32(888,1);
end
end;

dann wird dieser "Knight Rider" effekt () zwar so oft wiederholt wie angegeben aber mein Programm ist für diese Zeit blockiert wegen den vielen Sleeps die Sleeps sind aber notwendig, da das Lauflicht sonst nicht klappt...

Gibt es ne alternative für sleep bei der das Programm noch ansprechbar ist ??


EIDT : Sorry, habs über die Suche gefunden...nix für ungut

stichwort Delay