RadioButton und OnClick

[RedDust]

Hier hast du den Quelltext für das oben beschriebene Delay:

Delphi-Quellcode:

procedure Delay(time:word);
var Start: Integer;
begin
  Start:=GetTickCount;
  while (GetTickCount)-(Start) <= time do Application.ProcessMessages;
end;