Warten-Befehl

[DGL-luke]

ja, die sleep-methode hält alles an. allerdings brauchst du dann noch ein ';' nach dem sleep.

sie hält aber dann alles an: deine anwendung reagiert nicht mehr.

besser ist es, einen TTimer zu nehmen.

bei dem im ontimer das port[888]:= reinschreiben und noch dazu ein timer1.enabled:=false;

und dann, wenn du in den port schreiben willst, die anzahl an millisekunden die du warten willst ins timer1.interval und timer1.enabled:=true setzen.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender:TObject);
begin
port[888]:=1;
timer1.enabled:=false;
end;

procedure portout;
begin
timer1.interval:=100;
timer1.enabled:=true;
end;