1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TMainForm.Connections(Sender: TObject);
begin
  if ConfigMan.CheckBox1.Checked = True
    then as4sv001(sender);
  if ConfigMan.CheckBox2.Checked = True
    then as4sv005(sender);
  if ConfigMan.CheckBox3.Checked = True
    then as4sv006(sender);
  if ConfigMan.CheckBox4.Checked = True
    then as4sv007(sender);
  if ConfigMan.CheckBox5.Checked = True
    then as01duo1(sender);
  if ConfigMan.CheckBox6.Checked = True
    then as02duo1(sender);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TMainForm.Timer2Timer(Sender: TObject);
begin
  inc(i);
  if i > 6 then i := 1;
  case i of
    1: begin
        if ConfigMan.CheckBox1.Checked = True then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV001 ...');
          Form1.CopyAsText(nil);
          Form7.txtLog.Text := ' ';
        end;
      end;
    2: begin
        if ConfigMan.CheckBox2.Checked = True then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV005 ...');
          Form2.CopyAsText(nil);
          Form7.txtLog.Text := ' ';
        end;
      end;
    3: begin
            und so weiter...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

for i:=0 to Screen.FormCount-1 do
begin
  if Screen.Forms[i] = YourForm then 
  begin
    { do something with form }
  end;
end;

{ oder }

for i:=0 to Screen.FormCount-1 do
begin
  if Screen.Forms[i].Class = TYourForm then 
  begin
    { do something with form }
  end;
end;