1:

3|3|24.09.2009 22:31:04|Linie_3|1|1|1|2|33|971.395$10223507100430$10.000$RUTRONIK$RC0805JR-101ML970.458$10220912100060$5.000$RUTRONIK$RC1206FR-073R92L99990000000000100000000000000000|C_980_108_109_1|Los_75_465_442_02|FAIL|82|905352|75_465_442_02|FALSE|980109|FALSE                    

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

          sl := TStringList.Create;
          zellen := TStringList.Create;
          zellen.Delimiter:='|';
          sl.LoadFromFile(Datei);
          gesperrt := false;
          for i:=zeile to sl.Count-1 do
          begin
             tmpStr := StringReplace(sl[i], ' ', '', [rfReplaceAll]);

             zellen.DelimitedText := tmpStr;
             if zellen.Count >= 17 then
               if zellen[18] = 'TRUE' then  
                  check := true;

             ShowMessage(tmpStr);
             [...]
          end;                    

1:
2:

var
tmpstr : String;