var V: Real = 1.2345; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:= Format('%.1f', [V]); end;