Im DBEdit ein String in ein Date umwandeln

[ickehausen]

Hallo Leute,

in meiner Firebird-Datenbank möchte ich ein Date-Feld über ein DBEdit füllen. Nun würde ich gern in das DBEdit auch ein 'h' eingeben können, welches dann in das aktuelle Datum umgewandelt wird. Analog dazu 'g' und 'm' für gestern und morgen. Ich versuche es mit dem onExit-Ereignis der DBEdit-Komponente wie folgt und erhalte beim Verlassen der DBEdit-Komponente eine Exception der Klasse EConvertError mit der Meldung ''h' ist kein gültiges Datum'.

Delphi-Quellcode:

procedure TForm1.DBEditVDatumExit(Sender: TObject);
begin
  dat := DBEditVDatum.EditText;
  if dat = 'h'  then
    DBEditVDatum.EditText := DateToStr( Date());
end;

Ersetze ich das 'h' durch '' und lasse das DBEdit frei, fügt mir meine Anwendung das aktuelle Datum ein!?

Kann mir jemand helfen?