你可以用adoquery来做
procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 表名');
  adoquery1.SQL.Add('where num='+''''+edit1.Text+'''');
  adoquery1.Open;
  adoquery1.Edit;
  adoquery1.Delete;
  showmessage('成功删除');
end;