1.可以用TMaskEdit
2.TEdit.OnExit
  
var
  Edt: TEdit;
begin
 Edt:= (Sender as TEdit);
 try
   Edt.Text:= Format('%.2f', StrToFloat(Edt.Text));
 except
 end;