Delphi 7 у меня несколько edit и некоторым из них я хочу задать свойство Visible:=true одним разом. поэтому я задала им всем в свойстве Tag значения 10 и написала следующий код ошибки не высвечивается но и процедура не срабатывает(нажатие кнопки)

if (Components[i] is TEdit) and (TEdit(Components[i]).Tag = 10)
then TEdit(Components[i]).Visible:=true;

Видеопроцессор - процессор, специально разработанный для обработки сложных операций, связаных с синтезом и обработкой компьютерной графики. Видеопроцессор улучшает производительность системы, занимаясь выполнением сложных инструкция, связанных с графикой, тем самым освобождая от этих обязанностей главный процессор. В приставках видеопроцессоры установлены на материнской плате, в компьютерах они обычно выполнены в виде отдельной платы.
1 Обработка графики
2 Обработка цвета и освещения 
3Обработка текстур и частиц 

1)
uses crt;
const g=9.82;
var H,t: real;
begin
clrscr;
write ('H=');
readln (H);
t:=sqrt(2*H/g);
writeln ('t=',t:5:2);
end.
2)
uses crt;
var h,a,b,S: real;
begin
clrscr;
write ('h=');
readln (h);
write ('a=');
readln (a);
write ('b=');
readln (b);
S:=1/2*(a+b)*h;
writeln ('S=',s:5:2);
end.
3)
uses crt;
const N=8;
var
i: integer;
ch: array [1..N] of char;
begin
clrscr;
for i:=1 to N do
readln (ch[i]);
writeln ();
for i:=1 to N do
writeln (ch[i]);
end.
4)
uses crt;
var
A,B,R:real;
begin
clrscr;
write ('A=');
readln (A);
write ('B=');
readln (B);
R:=B;
R:=A;
A:=B;
writeln ('A=',A);
writeln ('B=',R);
end.