[[Caral]]

Hola
Esto redondea pero no se si es lo que buscas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var a,b: Real;
begin
  a:= StrToFloat(Edit1.Text);
  b:= Round(a);
  Edit2.Text:= Format('%8.2n',[b]);
end;

Saludos