TEdit: Textcursor ans Ende

[Xzeer]

getestet und funktioniert....thx

Delphi-Quellcode:

procedure Tfo_main.Button1Click(Sender: TObject);
begin
  edit1.SetFocus;
  edit1.SelStart:=length(edit1.Text);
end;