[Decoding]

Вариант, конечно, есть… Хотя мне он не нравится…

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := InputBox( 'Заголовок', 'Запрос', 'Значение по умолчанию' );
end;