Spaltenweise auf TStringList zugreifen

[aaaaaaaaaa_10]

So?

Delphi-Quellcode:

var Zeilenanzahl, linenum : integer;
begin
   try
      Sek.LoadFromFile(DreiSek);
      linenum := Sek.Count;
      if Zeilenanzahl = linenum then exit;

      Zeilenanzahl := Sek.Count-1;
              .......
   finally ...
   end;
end;