[xanorik]

Ребят, попробуйте иногда справку в Дельфи почитать:

Код:

function InputBox(const ACaption, APrompt, ADefault: string): string;

Код:

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