InputQuery は関数で、OKかCancelかをBoolean で返す。

procedure TfrmMain.Button1Click(Sender: TObject);
var
tmpString: String;
begin

InputBox('', '', tmpString);
ShowMessage(tmpString);

if InputQuery('', '', tmpString) then
ShowMessage(tmpString);

end;