Try 的用法

procedure TForm1.Button1Click(Sender: TObject);
var
  SqlBak: string;
begin
  //备份Sql语句
  SqlBak := ADOQuery1.SQL.Text;
  try
    with ADOQuery1.SQL do
    begin
      Clear;
      Add('insert test values(''张三'',''test'')');
    end;
    ADOQuery1.ExecSQL
  except
    on Error: EOleException do ShowMessage(Error.Message);
  end;
end;

这个就没有什么好多说的啦，一看就明白怎么用了，主要是防止以后偶自己忘了用法了! ^_^