Hallo Richard,
das müsste eigentlich ungefähr so ablaufen - noch nicht ganz ausformuliert:
Delphi-Quellcode:
procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);
const
LinePrefix = '[INDX]';
var
lineIndex: integer;
begin
if key = #13 then begin
// damit es nicht nur am Ende klappt...
lineIndex := Succ(CurrentLineNumber);
// Kons-Tante einsetzen
Memo.Lines.Insert(lineIndex, LinePrefix);
// Eingabe-Cursor dahinter setzen
SetCaretPosition(lineIndex, Length(LinePrefix));
// Tasten-Code als bearbeitet kennzeichnen
key := #0;
end;
end;
Grüße vom marabu