Redondear un float

uses math
---------------------------------------


// truncar

function Redondear(Valor: Real; Redondeo: Integer):Real;
begin
Redondear := Trunc(Valor * Power(10, Redondeo)) / Power(10,Redondeo);
end;

// redondear

function Redondear(Valor: Real; Redondeo: Integer):Real;
begin
Redondear := Round(Valor * Power(10, Redondeo)) / Power(10,Redondeo);
end;

//************************

var
numero,aux: real;
dato: string;
begin


dato:='12,4556';

numero:=strtofloat(dato);

aux:=Redondear(numero; 2);
numero:=aux;

dato:=floattostr(numero);

showmessage(dato);

end;