Eliminar registro

[sizne]

Hola:
Por favor preciso sus ayudas.
Tengo ADOtables: Donde TMaster es la tabla principal, y tiene varias dependientes (T1,T2,T3,T4)

Ahora lo que quiero hacer es... Elimininar un registro de TMaster, pero si tiene depentiendes osea registros en sus dependientes pues que me pregunte si deseo eliminar también sus depentiendes; o sino que me avice q no puedo eliminar por que tiene registros depentiendes.

Código Delphi [-]
procedure TFregList.EliminarClick(Sender: TObject);
begin
 if (T1.RecordCount=0)and(T2.RecordCount=0)
 and (T2.RecordCount=0) then
    begin
      if TMaster.RecordCount  = 0 then
          messageDlg('No existe ningun registro a eliminar',
          mtConfirmation, [mbOk], 0)
      else
        Tmaster.Delete;
    end
 else
  messageDlg('Existen informacion dependiente, no se puede eliminar',
          mtConfirmation, [mbOk], 0);
end;

Lo que sucede es que siempre me aparece el msj de que tiene dependientes y no puede eliminar, aun cuando no tiene ningun registro dependiente...

Por favor...

Saludos

Gracias!!!