Para debugar pon un TMemo en la ventana principal y un timer que ejecute algo que te muestre las ventanas de Screen.
Ejemplo
Código Delphi
[-]
procedure TFMPrincipal.OnTimer(Sender: TObject);
var
i : integer;
s : string;
begin
inherited;
MDebug.Lines.Clear;
for i := 0 to Screen.FormCount -1 do
begin
if Assigned(Screen.Forms[i]) then
s := 'Assigned'
else
s := 'NOT Assigned';
MDebug.Lines.Add(format('%d - Formulario: %s - %s', [i, Screen.Forms[i].Name, s]));
end;
end;