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

[Moin]

Tach auch,
ich füge in ne MEMO n kurzen string ein:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var s: string; 
begin 
  s := memo1.Text; 
  insert('<insert>',s,memo1.SelStart); 
  memo1.Text := s; 
end;

nach dem einfügen ist der Cursor aber ganz am Anfang der Memo das nervt extrem!!!!
wie kann ich den Cursor hinter den neu eingefügten Text stellen
Oder gibt es eine bessere methode, dem text einzufügen? ?

THX im Vorraus
Euer MOIN