Cerrar Pantallas hijas en delphi 7.0

[jachguate]

La propuesta de Sudamericano es válida en caso que tuvieras una aplicación MDI, cosa que no se ha aclarado.

Una solución mas genérica es basarse en el objeto global Screen, que guarda una lista a todas las formas creadas en su propiedad Forms:

Código Delphi [-]
begin
  for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName <> 'TFormularioLogin' then
      Screen.Forms[i].Close;

Hasta luego.