String in Memo einfügen /// Cursor in memo festlegen

[Moin]

Und ich habe wieder ein Problem...

Meine Prozedur sieh jetzt so aus:

Delphi-Quellcode:

PROCEDURE TFenster.Einf(Text:String);
var s : string;
    spos : Word;

BEGIN
    spos := Memo.SelStart;

    If Memo.SelLength > 0
      Then begin
           Memo.SelText:= '' ;
           s := Memo.Text;
           end
      Else begin
           s := Memo.Text;
           
           end;
    Insert(Text, s, spos+1);
    Memo.Text := s;
    Memo.SetFocus;
    Memo.SelStart:= spos +Length(Text);
END;

Der Text kann also auch überschrieben werden, (Jetzt kommt das große Aber ABER
ich habe ein Memo mit Scrollbars , d. h. der Cursor steht zwar hinter dem eingefügten String, der "Focus" ist aber auf den Anfang der memo gesetzt. Das nervt extrem wenn man am Ende des Dokumentes arbeiten will, da mann nur am scrollen is!!!!! !!!!

Kann ich das Problem irgendwie umgehen??

THX im Vorraus,
MOIN