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

var
  xy: TStringList;
begin
  xy := TStringList.Create;
  xy.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Datei.txt');
  for i := 0 to xy.Count - 1 do
    if xy[i][3] = 'C' then
      ShowMessage('Zeile ' + IntToStr(i) + ': ' + xy[i]);
  xy.Free;					

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

var
  CurrentLine: String;
  Results: TStringList;
begin
  Results := TStringList.Create;

  ...
  ReadLn(MyFile, CurrentLine);
  if CurrentLine[3] = 'C' then // die Zeile überprüfen
    ErgebnisListe.Add(CurrentLine); // und ggf. benutzen
  ...

  ShowMessage(Results.Text);
  Results.Free;