procedure TForm1.Edit1Enter(Sender: TObject);
begin
　Edit1.SelectAll;
Edit1.Refresh;
end;