可輸入文字的對話方塊

InputQuery:
按OK回傳true，Cancel傳回false。 uses Dialogs; ... var s, name : string; r:boolean; s := 'default name'; r := InputQuery('Name input', 'Please enter your name', s); if r then Showmessage('Your name is: ' + s) else ShowMessage('User canceled the input!'); InputBox:
按OK回傳輸入字串，Cancel傳回預設字串。 uses Dialogs; ... var s, name : string; s:='default name'; name:=InputBox('Name input', 'Please enter your name', s)