Wie Cursorposition in Edit1.text auslesen?

[Uwe.F.]

Hmm - ich will an der Stelle, wo der Cursor sich befindet, zwei Leerzeichen einfügen. Geht aber nicht, weil er mir immer 0 liefert:

Delphi-Quellcode:

procedure TForm1.Edit1DblClick(Sender: TObject);
var i: integer;
    T: string;
begin
  i:=Edit1.selstart;
  T:=Edit1.Text;
  Insert('  ', T, i);
  Edit1.Text:=T;
end;

Mit dem Doppelklick wird ja auch der Cursor positioniert ...