急等解决的问题！！请各位大哥帮帮我

[zengzhengliang]

如何 在窗体初始化的时候，让光标的显示在 文本筐的最末尾？？？（文本筐中有字，即
光标在字的后面）

[kkgogo]

var
insterpos,strlength:integer;
str1,str2:string;
begin
insterpos:=Edit.SelStart;
strlength:=length(Edit.Text)-insterpos;
str1:=copy(Edit.Text,1,insterpos);
str2:=copy(Edit.Text,insterpos+1,strlength);
Edit.Text:=str1+istr+str2;
Edit.SelStart:=length(Edit.Text);
end;

[pengxuan]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=length(Edit1.Text);
Edit1.SelStart:=i;
Edit1.SetFocus;
end;

[hellolongbin]

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
Edit1.SelStart:=Length(Edit1.Text);
end;