Text vor einem bestimmten Zeichen NICHT löschen

[Fallenzer]

Temporär habe ich folgendes versucht:

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#08 then
  begin
    if length(Memo1.Lines[0])=6 then  key:=#0;
  end;
end;

key #08 ist BACKSPACE laut ASCII, die Länge des Stringes 'shell>' ist 6, und wenn diese Zahl erreicht wird, dann wird die BACKSPACE-Taste blockiert, sodass sich das dadurch nicht löschen lässt...

Für die Erste Zeile des Memos wäre es geschafft...