报错对话框求助 ( 积分: 0 )

在客户查询设置了combobox1（客户编码，客户名称，级别）＋combobox2（=,<等）＋edit（用户自己输入），当combobox1选择了一项，而combobox2和edit为空，点击查询按钮时，会出错并回到delphi编译页面，想在这里设置一个报错框，当出现上述为空的情况下，点击查询时会出现报错提示用户。
而下面的这段代码，在我选择combobox1的时候就弹出错误对话框了，路过的大侠帮我看下，哪里有问题，谢谢啦！

晕，补贴代码。
procedure TFormcustormerque.ComboBox1Change(Sender: TObject);
begin
if (combobox2.text<>'') and (edit1.text<>'') then
begin
if combobox1.Text='客户编码' then
combobox2.Items.Text:='>'+#13+'>='+#13+'<'+#13+'<='+#13+'=';
if combobox1.Text='客户名称' then
combobox2.Items.Text:='=';
if combobox1.Text='级别' then
combobox2.Items.Text:='='
end
else
showmessage('报错')
end;

把你SQL语句贴出来啊。