Markierte(s) Zeichen im Edit über OnKeyPress-Event löschen

[juergen]

Hallo zusammen,
ich habe einiges versucht, bekomme es aber nicht hin.
Ich muss über das OnKeyPress Event bei bestimmten Tasteneingaben die evtl. markierten Zeichen in meinem Edit löschen, aber nur dann, wenn nicht ALLES markiert ist...

Das habe ich schon :

Delphi-Quellcode:

    
    if (key in [#8, #13, #44, #45, #46, #59]) and
       ((length(InputA.Text)) <> (InputA.SelLength)) then
    begin
      ...???...
      InputA.SelStart := Length(Text); //Cursor muss vermutlich an's Ende gesetzt werden?
    end;

Vielen Dank schon mal im Voraus!