Memo Tastenkombinations - Problem

[Schuster]

Hier mal der Code:

Delphi-Quellcode:

procedure TPanelSchadenErstell.Memo_Sch_anlegen_Bemerk_KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if (Key = 84) and (shift = [ssSHIFT]) then
        begin
            Memo_Sch_anlegen_Bemerk.Text:= Memo_Sch_anlegen_Bemerk.Text + ' '+DateToStr(now);
            Memo_Sch_anlegen_Bemerk.SelStart:= Memo_Sch_anlegen_Bemerk.GetTextLen;  //Auf zum Ende des Textes
        end;
end;

Habe folgendes Problem:
Bei Shift + T soll das Datum ins Memo kommen --> Das funkt auch nur wird leider auch das T mitgeschrieben.

Das sieht dann so aus 29.03.2005T

Kann man das irgendwie unterbinden