Mil gracias a los dos por sus comentarios buscando por la red, encontre esta funcion que redondea como lo hace el excel, la verdad me callo de 10, era justo lo que necesitaba, se las dejo para si alguien algun dia tiene el mismo problema
Código Delphi
[-]
function RoundTo2dp(Value: Currency): Currency;
begin
Result := Trunc(Value*100+IfThen(Value>0, 0.5, -0.5))/100;
end;
ya le hice pruebas y al parecer funciona muy bien, ustedes que opinan