1:
2:
3:
4:
5:
6:

function boGetCheckboxValue(iMainKat: Integer; iSubKat: Integer): boolean;
var szMainKat    : String;
    szSubKat     : String;
    szControlName: String;
    boReturn     : boolean;
begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

    if iSubKat = 0 then
      begin
        szControlName := 'chkKat';
        szControlName := szControlName + '0' + IntToStr(iMainKat);
      end
    else
      begin
        szControlName := 'chkUKat';
        szControlName := szControlName + '0' + IntToStr(iMainKat) + '0' + IntToStr(iSubKat);
      end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

    with TCheckBox(FindComponent(szControlName)) do
    begin
        if Checked then
          boReturn := true
        else
          boReturn := false;
    end;

  // Ergebnis...
  result := boReturn;
end;					

1:
2:
3:
4:

  public
    { Public declarations }
    function TfrmKategorieWahl.boGetCheckboxValue(iMainKat: Integer; iSubKat: Integer): boolean;
  end;					

1:

with TCheckBox(TfrmKategorieWahl.FindComponent(szControlName)) do					

1:

with TCheckBox(frmKategorieWahl.FindComponent(szControlName)) do					

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

TFormKategorieWahl = class(TForm)
...
public
  function boGetCheckboxValue(iMainKat: Integer; iSubKat: Integer): boolean;
..
end;
...

function TFormKategorieWahl.boGetCheckboxValue(iMainKat: Integer; iSubKat: Integer): boolean;
begin
  //Dein Source mit FindComponent
end;