Supongamos que en la primera columna está el código que necesitamos, aquí tienes un ejemplo de como capturar dicho valor:
Código Delphi
[-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(Query1.fields[0].asString);
end;
Luego quedaría, con un componente tipo
UpdateSql, ejecutar la orden correspondiente contra este código capturado y tabla correspondiente.
Un Saludo.