Loop? Delphi

[peterbelow]

Zitat von 2Kuhl4You:

Hay ich möchte eine ganz normal schleife machen um zu kontrollieren ob eine taste gedrückt worden ist.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If(Key = VK_NUMPAD0)then
  begin
  EingabeEdt.Text:= EingabeEdt.Text + '0';
  end;
end;

Ich weiß noch nichtmal ob das richtig ist, Es soll eine 0 in EingabeEdt eingefügt werden wenn die 0 Auf der Tastatur gedrückt wird oder wenn die 0 auf dem nunpad gedrückt wird.

Warum machst Du dir diese Mühe? Ein TEdit oder TMemo verarbeitet Zeichen von der Tastatur (inkl. Numpad) von selbst, das Control muß nur den Fokus haben.