function ExtractStringsPro(Separators, WhiteSpace: TSysCharSet; Content: PChar;
  Strings: TStrings): Integer;
var
  Head, Tail: PChar;
  EOS, InQuote: Boolean;
  QuoteChar: Char;
  Item: string;
begin
  Result :=  0 ;
  if (Content = nil) or (Content^=# 0 ) or (Strings = nil) then Exit;
  Tail := Content;
  InQuote := False;
  QuoteChar := # 0 ;
  Strings.BeginUpdate;
  try
    repeat
      while Tail^ in WhiteSpace do Inc(Tail);
      Head := Tail;
      while True do
      begin
        while (InQuote and not (Tail^ in [QuoteChar, # 0 ])) or
          not (Tail^ in Separators + [# 0 , '''', '"']) do Inc(Tail);
        if Tail^ in ['''', '"'] then
        begin
          if (QuoteChar <> # 0 ) and (QuoteChar = Tail^) then
            QuoteChar := # 0 
          else QuoteChar := Tail^;
          InQuote := QuoteChar <> # 0 ;
          Inc(Tail);
        end else Break;
      end;
      EOS := Tail^ = # 0 ;
      if (Head <> Tail) and (Head^ <> # 0 ) then
      begin
        if Strings <> nil then
        begin
          SetString(Item, Head, Tail - Head);
          Strings.Add(Item);
        end;
        Inc(Result);
      end;
      Inc(Tail);
    until EOS;
  finally
    Strings.EndUpdate;
  end;
end;

procedure TdmMain.adcMainWillExecute(Connection: TADOConnection;
  var CommandText: WideString; var CursorType: TCursorType;
  var LockType: TADOLockType; var CommandType: TCommandType;
  var ExecuteOptions: TExecuteOptions; var EventStatus: TEventStatus;
  const Command: _Command; const Recordset: _Recordset);
var
 str:string;
 sl:TStringList;
 scs,scw:TSysCharSet;
 r:integer;
 i:integer;
begin
try
{$IFDEF MYSQL}
  str:=CommandText;
  scs:=[';'];
  scw:=[];
  sl:=TStringList.Create;
  r:=ExtractStringsPro(scs,scw, PChar(str), sl);
  if r> 1  then
   begin
     try
       adcMain.BeginTrans;
         for i:= 0  to sl.Count- 1  do
          begin
            r:=length(sl.Strings[i]);
      //      MessageBox( 0 ,PChar(sl.Strings[i]),'',MB_OK);
            if r< 4  then continue;
            acMy.CommandText:=sl.Strings[i];
            acMy.Execute;
          end;
       adcMain.CommitTrans;
     except
      on e:Exception do
       begin
         MessageBox( 0 ,PChar(E.Message),'',MB_OK);       
         adcMain.RollbackTrans;
       end;  
     end;
//           MessageBox( 0 ,PChar(str),'',MB_OK);
    CommandText:='SELECT 0';
   end;
  sl.Free;
{$ENDIF}
except
 on E:Exception do
  begin
    MessageBox( 0 ,PChar(E.Message),'',MB_OK);
  end;
end;
end;