Código Delphi [-] for i := 0 to Screen.FormCount do begin fName := Screen.Forms[i].Name; ... end;
for i := 0 to Screen.FormCount do begin fName := Screen.Forms[i].Name; ... end;