procedure TForm1.Button1Click(Sender: TObject);
var user,temp:string;
begin
user:=Edit1.Text;
temp:='';
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear ;
DataModule1.ADOQuery1.SQL.Text:=('select 门诊编号 from 门诊挂号表 where 门诊编号='''+user+'''');
DataModule1.ADOQuery1.Open;
temp:=DataModule1.ADOQuery1.FieldByName('门诊编号').AsString ;
if temp<>''then
Form5.ShowModal
else
showmessage('输入错误，请重新输入！');
end;

不是的，顺序没问题，Button1的caption属性是正确，如果输入错误值可以正确判断，把调用窗体改为showmessage也能正常运行，就是一输入正确值，调用窗体就出错。

好了，问题解决了，太感谢你了，我已经研究好几天了。

谢谢大家的指点，收益匪浅