Обработка select и выполнение скриптов на одной кнопке

  OraScript1.SQL.Text:=memo1.Lines.Text;
  OraScript1.Execute;

OraQuery.SQL.Text :=Memo1.Lines.Text;
OraQuery.Close;
OraQuery.Open;

--update
select * 
from t_product

/*delete
from t_partner*/ select * from t_product

procedure TfmMain.tbOpenClick(Sender: TObject);
begin
if opendialog1.Execute then
  memo1.Lines.LoadFromFile(opendialog1.FileName);
  memo1.ReadOnly := false;
end;
 
procedure TfmMain.tbRunScriptClick(Sender: TObject);
  var
  i: integer;
  a:integer;
  typerun:string;//что запускается select или скрипт
  temptext: tstringlist;
  skob: integer; //найденна ли открытая скобка  /*
begin
  temptext := tstringlist.Create;
  temptext.text:= memo1.Lines.Text;
  skob :=0;
  for i:=0 to temptext.Count-1 do
    begin
     if trim(temptext.Strings[i]) = '' then continue
     else
        if (copy(trim(temptext.Strings[i]), 0, 2) = '--') and (skob=0) then continue
        else
            if (copy(trim(temptext.Strings[i]),0,2) <> '/*') and (skob=0) then
              begin
               if copy(uppercase(trim(temptext.Strings[i])),1,6) = 'SELECT' then
                   typerun:='SELECT'
               else
                   typerun:='SCRIPT';
                break;
              end
            else //т.е.если запрос начинается с /*, то ищем закрывающую */
            begin
              skob:=1;
            if  pos('*/', temptext.Strings[i])=0 then continue
             else
              begin
                a:= pos('*/', temptext.Strings[i])+2;
                if trim(copy(temptext.Strings[i], a, length(temptext.Strings[i])-a)) = '' then
                  begin
                  skob:=0;
                  continue;
                  end
                else
                  begin
                    if copy(uppercase(trim(copy(temptext.Strings[i], a, length(temptext.Strings[i])-a))),0,6) = 'SELECT' then
                    typerun:='SELECT'
                    else
                    typerun:='SCRIPT';
                  break;
                  end;
              end;
            end;
    end;
    if cbox.Checked=true then showmessage(typerun);
 
    if typerun = 'SELECT' then
      begin
        qZapros.SQL.Text := memo1.Lines.Text;
        qZapros.Close;
        qZapros.Open;
      end;
    if typerun = 'SCRIPT' then
      begin
        OraScript1.SQL.Text:=memo1.Lines.Text;
        OraScript1.Execute
      end;
     temptext.Free;
end;