procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for I := 0 to self.ComponentCount - 1 do
begin
if (self.Components[i] is TImage) then
begin
ShowMessage(TImage(self.Components[i]).Name);
end;
end;
end;
for i:=0 to PageControl1.ControlCount-1 do
begin
if (PageControl1.Controls[i] is TTabSheet) then
VCL := TTabSheet(PageControl1.Controls[i]);
for j:=0 to VCL.ControlCount-1 do
begin
if (VCL.Controls[j] is TPanel) then
begin
VCL1 := TPanel(VCL.Controls[j]);
for k:=0 to VCL1.ControlCount-1 do
begin