Pues usando el evento OnClick de un boton y teniendo un edit para meter los datos pues se puede hacer algo así:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
Var a : Double;
b : Int64;
c : String;
begin
a:=StrToFloat(Edit1.Text); b:=Round(a); c:=IntToStr(b); ShowMessage(c);end;
O así tambien(sin usar variables) >
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Round(StrToFloat(Edit1.Text))));
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7