兄弟有个问题不明白，请高人相助！(20分)

我想在表中插入一条纪录后输出一条存盘成功信息，但不知道如何判断插入成功
with ADOQuery1 do
begin
sql.clear;
sql.add('insert into class valuescno,:cname)');
parameters.paramByname('Cno').vaslue:=Edit1.Text;
parameters.paramByname('Cno').vaslue:=Edit1.Text;
execsql;
end;
if ?????????????? then
showmessage('存盘成功！');

try
{your code goes here}
showmessage('Successfully Saved');
except
showmessage('Error in Saving Data');
end;

procedure TFormClassInput.Button1Click(Sender: TObject);
begin
try
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into class valuesCno,:cname,:Grade)');
parameters.ParamByName('Cno').value:=strtoint(Edit1.text);
parameters.ParamByName('Cname').value:=Edit2.text;
parameters.ParamByName('Grade').value:=StrToFloat(Edit3.text);
Execsql;
end;
showmessage('存盘成功！');
except
showmessage('存盘不成功！');
end;

@@@@procedure TFormClassInput.Button3Click(Sender: TObject);
begin
close;
end;
但是@@@@那一行出现 statement excepted but 'procedure' found的错误，怎莫回事？
是不是用法不对？该怎莫用?

接受答案了.