简单测试
SQL> create table bb (id varchar2(1));Table createdprocedure TForm1.FormCreate(Sender: TObject);
begin
with adoconnection1 do
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('begin ');
  query1.SQL.Add('insert into bb values(''1'');');
  query1.SQL.Add(' end;');
  query1.ExecSQL;
end;
end;SQL> select * from bb;ID
--
1测试通过