Cerrar MDI Childs aleatoriamente

[[Lepe]]

A mi tambien me ha dejado un poco perplejo este hilo, ya que las preguntas son bastante escuetas.

en principio tienes la colección Forma_Mdi.MdiChildrens que puedes recorrerlo a placer y ver que ventanas estan creadas, a partir de ahí puedes hacer algo así:

Código Delphi [-]
if Forma_Mdi.MdiChildrens[i] is TfrmClientes then
begin
  Tfrmclientes(Forma_Mdi.MdiChildrens[i]).Lo que sea
end

Código Delphi [-]
function AlFrente(NombreVentana:string):Boolean;
var i:integer;
    hecho:Boolean;
beginÇ
  for i:=0 to MDI.count -1 do 
  if Tform(MDI.MdiChildren[i]).Name = NombreVentana then
  begin
   Tform(MDI.MdiChildren[i]).BringtoFront;
   result := true;
   break;
 end
 else
   result := false;

Es algo así lo que pides?

Un saludo