Ansonsten ein Beispiel, wo ein Zeichen an der Cursorposition eingefügt wird:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
AltAutoSelect : Boolean;
begin
Edit1.SelText := 'ö';
AltAutoSelect := Edit1.AutoSelect;
Edit1.AutoSelect := False;
Edit1.SetFocus;
Edit1.AutoSelect := AltAutoSelect;
end;
Cu, Frank