Código Delphi [-] for i:=0 to screen.FormCount-1 do showmessage(screen.Forms[i].Name); //en screen.Forms[0] esta el ultimo creado
for i:=0 to screen.FormCount-1 do showmessage(screen.Forms[i].Name); //en screen.Forms[0] esta el ultimo creado