Hola
Este es un pedazo de codigo para que mas o menos te des cuenta de como se hace lo que necesitas.
Código:
procedure TFOrdProd.Button5Click(Sender: TObject);
begin
If MessageDlg('¿Está seguro que desea eliminar la pieza # '+QOrdenProdCompraCodParte.AsString+' de la orden ',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
DataModule1.AC1.BeginTrans;
try
QTemp.SQL.Text := 'Delete * from OrdenProdCompra where Numero = '+QOrdenProdCompraNumero.AsString;
QTemp.ExecSQL;
DataModule1.AC1.CommitTrans;
except
on E:Exception do
begin
DataModule1.AC1.RollbackTrans;
MessageDlg('Se ha producido un error, por favor contacte al administrador.',mtError,[mbok],9);
end;//on
end; //try
QOrdenProdCompra.Close;
QOrdenProdCompra.Open;
end;
end;
Saludos