ちょっとした質問に

ちょっとした文字列の入力のために、わざわざフォームを１個作るのも面倒です。
そんなときにこの関数はどうでしょう？

//名前を尋ねます
Name := InputBox('Input', 'Your name: ', 'no name');

詳しく知りたければ、ヘルプを引きましょう。

var
  S: string;
begin
  if InputQuery('Input', 'Your name: ', S) then Name := S;
end;

こっちでも良いです。
ちょこっと違うので使い分けましょう。

Return index page