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);