[MegaPiha]

Ну тогда так.

Код:

Table1.Last;
for n:=table1.recordcount downto 1 do
begin
    if Table1.FieldbyName('Tip_id').asString =edit1.text then
       Table1.delete;
    Table1.Prior;
end;