У меня всё нормально работает. Может проблема не в этом?
Program stars;
var d: real;
id_2: integer;
ok: command;
begin
ShowForm;
id_2 := FormAddTextField('Поле ввода', '', 10, 5);
ok := CreateCommand(' OK', CM_OK, 1);
AddCommand(ok);
while GetClickedCommand <> ok do delay(50);
d := StringToReal(FormGetText(id_2), 10);
end.