Copmo grabo un registro a varias tablas

[jachguate]

Podes utilizar el evento OnPost del primer dataset para insertar en la segunda tabla, algo como:.

Query1.SQL =  'Insert into tabla2 (campo1, campo2) Values (:Campo1, :Campo2)';

Begin
  if Tabla1.State = dsInsert Then
  Begin
     Tabla2.Insert;
     Tabla2Campo1.Value := Tabla1Campo1.Value;
     Tabla2Campo2.Value := Tabla1Campo2.Value;
     Tabla2.Post;
  End;
End;