利用LOCATE 多字段查询出现语句错误？在线等。。。。。

Question

各位大大好人，请帮我看这代码哪有问题：谢谢
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Locate(combobox1.Text+';'+combobox2.Text,vararrayof([edit1.Text,edit2.Text]),[locaseinsensitive])
then
showmessage('找到记录')
else
showmessage('没有记录')end;
错误提示：
[Error] locatesercher.pas(49): 'END' expected but 'THEN' found
[Fatal Error] Project2.dpr(5): Could not compile used unit '..\1\locatesercher.pas'
到底怎么回事哦！！？？运行时then一行红色的

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
begin
if //少了if语句
table1.Locate(combobox1.Text+';'+combobox2.Text,vararrayof([edit1.Text,edit2.Text]),[locaseinsensitive])
then
showmessage('找到记录')
else
showmessage('没有记录')end;

Answer 2

if //少了if语句
对你就少了这IF匹配语句,是不能少的.