Konsole: KeyHit? KeyPressed?

[glkgereon]

Hi

ich muss irgendwie rauskriegen ob (irgendeine) Taste gedrückt wird. Das soll nur innerhalb der Konsole sein...

hier ein beispiel wozu ichs brauch^^

nur "KeyHit" exitiert ja nicht ...gibt es denn überhaupt sowas?

Delphi-Quellcode:

function SettingsChange:Boolean;
//Gegebenenfalls Settings-Form erstellen+Anzeigen
var Form: TForm_Settings;
    i:Integer;
begin
  try
    Write('Druecken sie eine Taste um die Einstellungen zu aendern');
    i:=0;
    while i<5 do
      begin
      Write('.');
      sleep(1000);
      if Keyhit then Break else inc(i);
      end;
    if i<5 then
      begin
      Form:=TForm_Settings.Create(nil);
      Form.ShowModal;
      Form.Free;
      end;
    WriteLn;
    Result:=False;
  except
    Result:=True;
  end;
end;