[Resolvido] Função que Verifica se o form a ser criado já esta ca

[orc 0]

// Verifica se o form a ser criado já esta carregado function FormExiste(aberto: Tform): Boolean; var I:Integer; begin 	FormExiste := false; 	for I := 0 to Screen.FormCount -1 do 	if Screen.Forms[i] = aberto then 	begin 	FormExiste := true; 	Break; 	end end;