[Alexandro]

Puedes hacerlo de la sgte forma tambien:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  r:real 
begin
   real:=131313131.0982037;
   Str(r:2:2,s);
   ShowMessage(s);
end;