1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

…

type TZeile = record
     Spalte: array [0..MAX_COLUMN] of string;
end;

type TKatalog = record
     Dateiname: String;
     Zeile: array of TZeile;
end;

PointerKatalog = ^TKatalog;

…

implementation

function TMain.LinkCheck(zahl:Integer):Integer;
var …
      PKatalog:PointerKatalog;

Begin

PKatalog:=TranslateKatalog(ComboBox_Katalog.Text,9);
For i:=2 to length(PKatalog.Zeile)-1 do
Begin

    if PKatalog.Zeile[i].Spalte[22]<>'' then
       //..

      for j := 0 to StringGrid_Parse_W.RowCount - 1 do
      begin

       if StringGrid_Parsen_W.Cells[0,j]<>'' then
        begin
          //…

          PKatalog:=nil;  //wenn auskommentiert, dann läuft es durch

          for c:=0 to length(AllDefaultCatalogs) - 1 do
             if length(AllDefaultCatalogs[c].Zeile)>=1 then  if AllDefaultCatalogs[c].Zeile[1].Spalte[0]=catalog then begin PKatalog:=AllDefaultCatalogs[c]; break; end;

          //…
        end;  //if StringGrid_Parse_W.Cells[0,j]<>'' then

      end; //for j := 0 to StringGrid_Parsen_W.RowCount - 1 do

   end;  //if PKatalog.Zeile[i].Spalte[22]<>'' then

end;   //For i:=2 to length(PKatalog.Zeile)-1 do