Cambio de formato floattostr

[Hugoalgave]

pues mira yo hice esto en una calculadora te lo paso espero te sirva.

Código Delphi [-]
procedure TForm4.Button1Click(Sender: TObject);
var
  a,b,c:real;
  c1:string;
begin
  a:=strtofloat(Edit1.Text);
  b:=strtofloat(Edit2.Text);
  c:=a*b;
  str(c:1:2,C1);
  Edit3.Text:= c1;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  close;
end;

end.