Loop? Delphi

[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.


So soll das aussehen

Loop:

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;
GoTo Loop:

Ich weiß das das Loop da nicht richtig ist und nicht funktioniert aber evtl hat da ja wer ne Idee

Danke LG 2Kuhl4You