[AlexSku]

Проще функцией Format:

Код:

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