Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;
Var
StrEdt: string;
begin
StrEdt:=copy(trim(Edit1.text),length(trim(Edit1.text))-1,2);
Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;
end;
Edit1.SetFocus;
edit1.SelStart:=Length(Edit1.Text)-2;
Edit1.SelLength:=2;
这个正确