Como deletar vários registros ao mesmo tempo ?

DELETE FROM Tabela WHERE Codigo = 10

DELETE FROM ORCAMENTO_OFIC_ELET_ITENS WHERE Codigo = 10

qryApaga.SQL.Clear;
qryApaga.SQL.Add(´DELETE FROM ORCAMENTO_OFIC_ELET_ITENS  WHERE Codigo = ´ + IntToStr(Codigo));
qryApaga.ExecSql;

BD_ORCA_ITENS.SQL.Clear;
BD_ORCA_ITENS.SQL.Add(´DELETE FROM ORCAMENTO_OFIC_ELET_ITENS  WHERE Codigo = ´ + IntToStr(BD_ORCA_ITENSGS_OOEI_CODIGO));
BD_ORCA_ITENS.ExecSql;

BD_ORCA_ITENS.SQL.Clear; 
BD_ORCA_ITENS.SQL.Add(´DELETE FROM ORCAMENTO_OFIC_ELET_ITENS  WHERE Codigo = ´ + IntToStr(BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODIGO´).Value)); 
BD_ORCA_ITENS.ExecSql;

BD_ORCA_ITENS.SQL.Clear;
BD_ORCA_ITENS.SQL.Add(´DELETE FROM ORCAMENTO_OFIC_ELET_ITENS  WHERE GS_OOEI_CODACES = ´ + IntToStr(BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODACES´).Value));
BD_ORCA_ITENS.ExecSql;

BD_ORCA_ITENS.SQL.Clear; 
BD_ORCA_ITENS.SQL.Add(´DELETE FROM ORCAMENTO_OFIC_ELET_ITENS WHERE GS_OOEI_CODACES = :vGS_OOEI_CODACES´);
BD_ORCA_ITENS.ParamByName(´vGS_OOEI_CODACES´).AsInteger := BD_ORCA_ITENSGS_OOEI_CODACES.Value;
BD_ORCA_ITENS.ExecSql;

BD_ORCA_ITENS.close;
BD_ORCA_ITENS.sql.clear;
BD_ORCA_ITENS.sql.add(´delete from ORCAMENTO_OFIC_ELET_ITENS´);
BD_ORCA_ITENS.sql.add(´where GS_OOEI_CODACES like´+QuotedStr(edit4.text));
try 
BD_ORCA_ITENS.open;
except 
end;

 _FormOSOR.BD_ORCA_ITENS.Insert;
_FormOSOR.BD_ORCA_ITENSGS_OOEI_CODACES.Value :=    _FormOSSaida.BD_OFC_ELEGS_OOE_CODIGO.value;
_FormOSOR.BD_ORCA_ITENS.Post;
_FormOSOR.BD_ORCA_ITENS.Close;
_FormOSOR.BD_ORCA_ITENS.SQL.Clear;
_FormOSOR.BD_ORCA_ITENS.SQL.Add(´select * from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES=´+inttostr(E));
 _FormOSOR.BD_ORCA_ITENS.Open;
Close;

procedure T_FormOSSaida.ToolButton8Click(Sender: TObject);
var
e:integer;
begin
  E:=_FormOSSaida.BD_OFC_ELEGS_OOE_CODIGO.Value;
  _FormOSSaidaB := T_FormOSSaidaB.Create(application);
  _FormOSSaidaB.BD_ORCA_ITENS.Close;
  _FormOSSaidaB.BD_ORCA_ITENS.SQL.Clear;
  _FormOSSaidaB.BD_ORCA_ITENS.SQL.Add(´select * from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES=´+inttostr(E));
  _FormOSSaidaB.BD_ORCA_ITENS.Open;
  _FormOSSaidaB.showmodal;
end;

procedure T_FormOSSaidaB.Button1Click(Sender: TObject);
var
  a,b,c : real;
  r: integer;
  g: string;
begin
  QRLabel31.Caption := ´R$ ´+ _FormOSSaida.BD_OFC_ELEGS_OOE_VALOR_TOT.Value;
  QuickRep1.PrinterSettings.Copies := strtoint(Table5Imprime_Folhas_BX.value);
  r:= _FormOSSaida.BD_OFC_ELEGS_OOE_CODIGO.Value;
  g:=format(´¬5.5d´,[r]);
  if MessageDlg(´Deseja dar saída a O.S. do cliente  ´ + _FormOSSaida.BD_OFC_ELEGS_OOE_NOME.Value + ´ ?´,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort;
  Table3.Insert;
  Table3Origem.value := ´OS´;
  Table3CodigDoc.value := g;
  Table3Nome.value := _FormOSSaida.BD_OFC_ELEGS_OOE_NOME.Value;
  Table3CodAcess.Value := _FormOSSaida.BD_OFC_ELEGS_OOE_CODACES.Value;
  Table3DataEnt.value := _FormOSSaida.BD_OFC_ELEGS_OOE_DATA_ENT.Value;
  Table3Dataorcamento.value := _FormOSSaida.BD_OFC_ELEGS_OOE_DATA_ORC.Value;
  Table3ValorTot.value := Edit3.Text;
  Table3Decricao.value := _FormOSSaida.BD_OFC_ELEGS_OOE_APDESCR.Value;
  Table3Defeito.Value :=  _FormOSSaida.BD_OFC_ELEGS_OOE_DEF_ALEGADO.Value;
  Table3Marca.value := _FormOSSaida.BD_OFC_ELEGS_OOE_MARCA.Value;
  Table3Modelo.value := _FormOSSaida.BD_OFC_ELEGS_OOE_MODELO.Value;
  Table3Ndeserie.value := _FormOSSaida.BD_OFC_ELEGS_OOE_NSERIE.Value;
  Table3Datapreventr.value := _FormOSSaida.BD_OFC_ELEGS_OOE_DATA_ENT.Value;
  Table3DataOut.value := _FormOSSaida.BD_OFC_ELEGS_OOE_DATA_SAI.Value;
  Table3Resp.value := _FormOSSaida.BD_OFC_ELEGS_OOE_TEC_RESP.Value;
//  Table3Condsaida.value := _FormOSSaida.Table1Cond_saida.value;
  Table3.Post;
  a:=strtofloat(edit3.text);
  b:=strtofloat(_FormOSSaida.BD_OFC_ELEGS_OOE_VALOR_TOT.Value);
  c:= b-a ;
  QRLabel5.Caption := ´R$ ´+ floattostrf(c,ffFixed,10,2);
  QRLabel7.Caption := ´R$ ´+ Edit3.Text;
  r:= _FormOSSaida.BD_OFC_ELEGS_OOE_CODIGO.Value;
  g:=format(´¬5.5d´,[r]);
  QRLabel16.Caption:= g;
  if Application.MessageBox(´Imprimir documento de saida ?´ , ´Imprimir.´, MB_ICONQUESTION + MB_YESNO) = IDYES then
  QuickRep1.Print;
  _FormOSSaida.BD_OFC_ELE.Delete;
  Close;
end;

var SQL : String;
begin
SQL := ´ delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = ´
+´IntToStr(GS_OOEI_CODACES);
BD_ORCA_ITENS.Close;
BD_ORCA_ITENS.SQL.Clear;
BD_ORCA_ITENS.SQL.Add(SQL);
BD_ORCA_ITENS.ExecQuery;
end;

var SQL : String; 
begin 
SQL := ´ delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = ´ 
+´IntToStr(GS_OOEI_CODACES)´;     <= essa última
BD_ORCA_ITENS.Close; 
BD_ORCA_ITENS.SQL.Clear; 
BD_ORCA_ITENS.SQL.Add(SQL); 
BD_ORCA_ITENS.ExecQuery; 
end; 

var SQL, Campo : String; 
begin 
Campo := IntToStr(BD_ORCA_ITENS.GS_OOEI_CODACES.asInteger);
SQL := ´ delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = Campo´);
BD_ORCA_ITENS.Close; 
BD_ORCA_ITENS.SQL.Clear; 
BD_ORCA_ITENS.SQL.Add(SQL); 
BD_ORCA_ITENS.ExecQuery; 
end; 

var 
  SQL: String; 
begin 
  SQL := ´ delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = :Campo´); 
  BD_ORC_ITENS.ParamByName(´Campo´).AsInteger := BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODACES´).asInteger

  BD_ORCA_ITENS.SQL.Clear; 
  BD_ORCA_ITENS.SQL.Add(SQL); 
  BD_ORCA_ITENS.ExecQuery; 
end; 

Campo := IntToStr(BD_ORCA_ITENSGS_OOEI_CODACES.asInteger); 

var 
  SQL: String; 
begin 
  SQL := ´delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = :Campo´; 
  BD_ORC_ITENS.ParamByName(´Campo´).AsInteger := BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODACES´).asInteger 

  BD_ORCA_ITENS.SQL.Clear; 
  BD_ORCA_ITENS.SQL.Add(SQL); 
  BD_ORCA_ITENS.ExecQuery; 
end; 

var 
  SQL: String; 
begin 
  SQL := ´delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = :Campo´; 
  BD_ORC_ITENS.ParamByName(´Campo´).AsInteger := BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODACES´).asInteger ;   <= aqui

  BD_ORCA_ITENS.SQL.Clear; 
  BD_ORCA_ITENS.SQL.Add(SQL); 
  BD_ORCA_ITENS.ExecQuery; 
end; 

var 
  SQL: String; 
begin 
  SQL := ´delete from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES = :Campo´; 
  BD_ORCA_ITENS.SQL.Clear; 
  BD_ORCA_ITENS.SQL.Add(SQL); 

  BD_ORC_ITENS.ParamByName(´Campo´).AsInteger := BD_ORCA_ITENS.FieldByName(´GS_OOEI_CODACES´).asInteger ;   

  BD_ORCA_ITENS.ExecQuery; 
end; 

BD_ORCA_ITENS.ExecQuery;

BD_ORCA_ITENS.ExecSql;

BD_ORCA_ITENS.Delete;

procedure T_FormOSSaida.ToolButton8Click(Sender: TObject);
var
e:integer;
begin
  E:=_FormOSSaida.BD_OFC_ELEGS_OOE_CODIGO.Value;
  _FormOSSaidaB := T_FormOSSaidaB.Create(application);
  _FormOSSaidaB.BD_ORCA_ITENS.Close;
  _FormOSSaidaB.BD_ORCA_ITENS.SQL.Clear;
  _FormOSSaidaB.BD_ORCA_ITENS.SQL.Add(´select * from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES=´+inttostr(E));
  _FormOSSaidaB.BD_ORCA_ITENS.Open;
  _FormOSSaidaB.showmodal;
end;

var
  i,r: integer;
  n: real;
begin
  n:= 0;
  r:= BD_CONT_REC.RecordCount;
  BD_CONT_REC.First;
    for i:=1 to r do
    begin
    n:= n + BD_CONT_RECGS_COR_VALOR_PARCELA.asfloat;
    BD_CONT_REC.Next;
  end;

var
  i,r: integer;
begin
  r:= BD_ORCA_ITENS.RecordCount;
  BD_ORCA_ITENS.First;
    for i:=1 to r do
    begin
    BD_ORCA_ITENS.Next;
    BD_ORCA_ITENS.Delete;
  end;