Memo Tastenkombinations - Problem

[Schuster]

Habs gelöst kann geschlossen werden.

Hier noch für die es Interessiert:
Habs ins KeyUp statt KeyDown gepackt

Delphi-Quellcode:

procedure TPanelSchadenErstell.Memo_Sch_anlegen_Bemerk_KeyUP(Sender: TObject; var Key: Word; Shift: TShiftState);
var temp: String;
x : integer;
begin
    if (Key = 84) and (shift = [ssSHIFT]) then
        begin
            temp:= Memo_Sch_anlegen_Bemerk.Text + ' '+DateToStr(now);
            x:= length(temp);
            delete(temp,x-11,1);
            Memo_Sch_anlegen_Bemerk.Text:= temp;
            Memo_Sch_anlegen_Bemerk.SelStart:= Memo_Sch_anlegen_Bemerk.GetTextLen;  //Auf zum Ende des Textes
        end;
end;