Key = '*' -> Edit1.Text = Akt. Datum

[Nalincah]

Ich hab ein Edit-Feld. Wenn man '*' drückt soll das aktuelle Datum reingeschrieben werden

Delphi-Quellcode:

procedure TForm1.EditBisDatumKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case key of
    106 : begin
            key := 0;
            TEdit(Sender).Text := DateToStr(Date);
          end;
  end;
end;

Leider steht hier aber "*09.08.2004". Wie kann ich das "*" rauskriegen?