Código Delphi [-] for i:=0 to screen.FormCount-1 do showmessage(screen.Forms[i].name);
for i:=0 to screen.FormCount-1 do showmessage(screen.Forms[i].name);