DELETE DATA

if edtnama.Text='' then

  begin

    ShowMessage('You have not selected to be deleted');

  end  else

  with QSplier do

  begin

    Close;

    SQL.Clear;

    SQL.Add('delete from  suplier ');

    sql.add('where nama=:nam');

    ParamByName('nam').AsString:=trim(edtnama.Text);

    Execute;

    MessageDlg('YOUR DATA HAS BEEN DELETED',mtConfirmation,[mbOK],0);

    edtnama.Clear;

  end;

      with QSplier do

  begin

    Close;

    SQL.Clear;

     SQL.Add('select * from suplier');

       Execute;

        DBGrid1.Columns[0].Width:=0;

       DBGrid1.Columns[1].Width:=80;

       DBGrid1.Columns[2].Width:=100;

       DBGrid1.Columns[3].Width:=150;

       DBGrid1.Columns[4].Width:=100;

       DBGrid1.Columns[5].Width:=100;

       DBGrid1.Columns[6].Width:=50;

  end;