[lmikle]

Дык у тебя обе переменные одного типа. Зачем ты еще StrToFloat дклаешь??? Убери нафиг, оставь:

Код:

f :=InputBox('Округлите значение','Значение:',a1_del);
a1_del_:= f;

а еще проще так:

Код:

a1_del :=InputBox('Округлите значение','Значение:',a1_del);