Im Memo Text an Cursor Position einfügen

[DataCool]

Hi Leute,

eigentlich sollte es ja ganz einfach sein in einem TMemo, ein Text an der aktuellen Cursor Position einzufügen.
Allerdings habe ich keine Methode insert oder ähnliches gefunden.
Jetzt habe ich mir gedacht :

Code:

Var sCode : String;
    sTmp  : String;
begin
    sCode := 'blabla';
    if mem_Msg.SelLength = 0 then begin
      sTmp := mem_Msg.lines.Text;
      Insert(sCode,sTmp,mem_Msg.SelStart);
      mem_Msg.Lines.Text := sTmp;
      // Focus auf Eingabe-Feld
      mem_Msg.SetFocus;
      // markierung löschen und Cursor hinter das letzte Zeichen
      mem_Msg.SelStart := mem_Msg.SelStart + Length(sCode);
      // 
    end
    else begin

    end;

Leider funktioniert das ganze nicht sehr gut, weil mem_Msg.lines.Text ja auch noch Steuerzeichen für Zeilenumbüche und ähnliches enthält.

Schön wäre es auch wenn jemand auch eine passende Lösung hat, wenn den SelLength des Memos > 0 ist, dann soll natürlich der markierte Text ersetzt werden.

Danke,