procedure TForm1.Button1Click(Sender: TObject);
begin
while not ADOTable1.Eof do begin
AdoTable1.Edit;
ADOTAble1.DeleteRecords(arAll); [color=blue]{ или ADOTAble1.DeleteRecords; или 
Adotable1.Post; или ADOTAble1.ClearFields}[/color]
next;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
while not ADOTable1.Eof do begin
AdoTable1.Edit;
ADOTable1.DeleteRecords(arAll);
{или ADOTable1.DeleteRecords, или ADOTable1.ClearFields}
Adotable1.Post;
next;
end;

end;

begin
while not ADOTable1.Eof do begin
ADOTable1.Fields.Clear;
next;
end;

    object ADOCommand1: TADOCommand
    CommandText = 'delete from IND_NR_7'
    CommandTimeout =  45 
    Connection = ADOConnection1
    Prepared = True
    Parameters = <>

ADOCOmmand1.Execute;