[ApxaHGe1]

Мне кажеться проще будет так :

Код:

var
q:Extended;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
q:=StrToFloat (Edit1.Text);
ShowMessage (FloatToStrF(q,ffFixed,15,2));
end;

end.