ScrollBarPosition speichern / festlegen :?::?::?:

[Moin]

Moin alle zusammen!!!!

Ich hab ne Prozedur geschrieben, die einen String in ein Memo Einfügt, und ggf. Markierten Text damit überschreibt, sie sieh 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;

Spos dient der Festlegung des TextCursors!
Jetzt kommt das große 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