Tastenabfrage

[Alter Mann]

Oh, Oh

Da war doch glatt ein Fehler drin

Delphi-Quellcode:

procedure TForm1.MachWas;
var
  I : Integer;
begin
  Laufe := True;
  I := 0;
  while I < 32555 do
  begin
    Application.ProcessMessages;
    Inc(I);
  end;
  Laufe := False;  //<- Vergessen
end;