为何调用exit编译报错？(30分)

我在一个按钮事件响应程序中调用了exit过程，结果编译报错：

procedure TJiaBiaoForm.OKButtonClick(Sender: TObject);
var
szNamestring;
iGuige:smallint;
begin
szName:=Edit2.Text;
if IsStrAInteger(Edit4.text) then iGuige:=StrToInt(Edit4.Text)
else
begin
ShowMessage('内含数量必须为一个整数');
exit;
end;

...

end;

[Error] JiaBiaoUnit.pas(405): Statement expected, but expression of type 'TButton' found

去掉exit一行就行。不知为何？
程序中有很多地方都调用了exit，都没问题。

[?]

估计是别的错误引起的。

有什么可以导致这个错误呢？

估计是别的错误引起的。

把405行前后5行贴出来

procedure TJiaBiaoForm.OKButtonClick(Sender: TObject);
var
szName,szPinyinName,szFenlei,szShengchanChangjia:string;
szDanwei1,szDanwei2:string;
fPifaPrice1,fLingshouPrice1,fPifaPrice2,fLingshouPrice2:Real;
iGuige:smallint;
begin
fPifaPrice1:=0;
fLingshouPrice1:=0;
fPifaPrice2:=0;
fLingshouPrice2:=0;

szName:=Edit2.Text;
szPinyinName:=Edit3.Text;
if IsStrAInteger(Edit4.text) then iGuige:=StrToInt(Edit4.Text)
else
begin
ShowMessage('内含数量必须为一个整数');
exit;
end;

if IsStrAFloat(Edit5.Text) then fPifaPrice1:=StrToFloat(Edit5.Text)
else ShowMessage('批发价1必须为一个数字');
if IsStrAFloat(Edit6.Text) then fLingshouPrice1:=StrToFloat(Edit6.Text)
else ShowMessage('零售价1必须为一个数字');
if IsStrAFloat(Edit7.Text) then fPifaPrice2:=StrToFloat(Edit7.Text)
else ShowMessage('批发价2必须为一个数字');
if IsStrAFloat(Edit8.Text) then fLingshouPrice2:=StrToFloat(Edit8.Text)
else ShowMessage('零售价2必须为一个数字');
szDanwei1:=ComboBox2.Text;
szDanwei2:=ComboBox3.Text;
szFenlei:=ComboBox1.Text;
szShengchanChangjia:=Edit9.Text;

if state=1 then Query2.Append
else Query2.Edit;
Query2.SetFields([nil,
szName,
szPinyinName,
iGuige,
fPifaPrice1,
fLingshouPrice1,
szDanwei1,
fPifaPrice2,
fLingshouPrice2,
szDanwei2,
szFenlei,
szShengchanChangjia]);
Query2.Post;
EnableAllEdits(false);
if state=1 then
begin
table1.Active:=false;
table1.TableName:='Kucun.db';
table1.Active:=true;
table1.AppendRecord([query2.FieldByName('编号'),0,0]);
end;
state:=0;//普通只读状态

end;

100%是由于其他的错误引起的。

不加分号试试,呵呵,瞎说.

根exit没关系

是不是你的一个按钮取名叫exit了？

是编译时不通过吗？是不是你在exit的附近用了中文的字符了delphi是不认的！我也觉得是由于其他错误引起的。可以把报错信息贴出来看看吗？

我遇到过这类问题，不过忘记怎么解决的了，
可能和动态创建控件或TScrollBox有关，记不清了，你自己找找看，一步步调试，会找出来的

太阳火提醒了我，是有一个按钮取名叫exit了。结果在整个这个unit中任何地方都不能调用
exit过程。谢谢大家！
附：出错提示：
[Error] JiaBiaoUnit.pas(405): Statement expected, but expression of type 'TButton' found