以下是解决方案

function   InputBox(const   ACaption,   APrompt,   ADefault:   string):   string;  
  第三个参数设为空值，按cancel就会返回空值 (第三个参数是显示在Inputbox中的默认值)

然后我们这么处理

var  
      aa:   string;  
  begin  
      aa   :=   InputBox('asdasd',   'asdasds',   aa);  
      if   aa   <>   ''   then  
          ShowMessage(aa);  
  end;  
  OK，是把输入的值给aa  
  Cancel，则把aa的值清空，  
  你可以根据aa值来判断是OK还是Cancel