[sanxpue]

Una idea es :
Crear otra tabla igual eh ir preguntando

Código Delphi [-]
  While Not Table1.EoF Do
  Begin
     If Not Table2.FindKey('ID',Table1Id.AsInteger,[]) Then
       MeteEnTable2
     Table1.Next;
  End;

Otra si no quieres crear otra tabla entonces, los ordenas por el ID, por que si no los ordenas papantla tus hijos volan.. no sale

Código Delphi [-]
Procedure QuitaRepetidos;
Var
  Indice : Integer;
Begin
  Indice := 0;
  While Not Table1.EoF Do
  Begin
    If (Indice=0) Or (Table1Id.AsInteger <> Indice) Then
    Begin
      Indice := Table1Id.AsInteger;
      Table1.Next
    End
    Else
      Table1.Delete
  End;
End;