Chequea este código que envio... precisamente, creo, es lo que necesitas... aqui intervienen varias tablas... espero te sirva. Saludos
Código Delphi
[-]
procedure TfrmFacturacion.tblItemsNotaBeforePost(DataSet: TDataSet);
begin
tblItemsNotaITE_Total.AsFloat :=
tblItemsNotaITE_Cantidad.AsFloat *
tblItemsNotaPrecio.AsFloat;
tblItemsNotaITE_id_NotaCredito.AsInteger :=
tblNotaCreditoNotaCredito_id.AsInteger;
if tblItemsNotaITE_Cantidad.AsString = '' then
ShowMessage('Indique la cantidad de productos');
end;