wie kann ich den Procedure delay über mein Button aufrufen?
Delphi-Quellcode:
{Uses WINPROCS}
procedure TForm1.Delay(ms: Longint); {ms = milliseconds}
var
TimeOut: Longint;
begin
TimeOut:= GetTickCount + ms;
While GetTickCount < TimeOut do
begin
{... do something or do nothing}
end;
end;