[Ildar-tsr]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var x: real;
begin
  x:= 0.123456;
  Edit1.Text:= FloatToStr(x);
end;