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

filename := 'C:\Daten.txt'
StrList.LoadFromFile(filename)

For zaehler := 1 to StrList.count - 1 Do
   Begin
     Try 
       wert := length(StrList[zaehler];
       For zaehler2 := 1 to wert Do
         begin
           zeichen nach Semikolon prüfen;
           wenn ja (2 oder 10) dann Wert behalten sonst löschen
         end;     
     Finally
       StrList.SaveToFile(filename)
     end;
   end;					

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:

procedure LoadFromFile(Filename: string);
var
  StringList: TStringList;
  I, Len: Integer;
  Line, Buffer, Spalte2, Spalte10: string;
begin
  StringList := TStringList.Create;
  try
    StringList.LoadFromFile(Filename);
    for I := 0 to StringList.Count - 1 do
    begin
      Line := StringList[I];
      Len := Pos(';',Line);
      Buffer := Copy(Line,Len+1,9999);   // Rest nach erstem Semikolon

      Len := Pos(';',Buffer);            // Achtung hier den Rest verwenden
      Spalte2 := Copy(Buffer,1,Len-1);   // Inhalt der zweiten Spalte
      Buffer := Copy(Buffer,Len+1,9999); // Rest nach zweitem Semikolon

      Len := Pos(';',Buffer);
      Buffer := Copy(Buffer,Len+1,9999);

//      ...
//      usw.
//      ...

      Len := Pos(';',Buffer);
      Spalte10 := Copy(Buffer,1,Len-1);  // Inhalt der 10. Spalte

      StringList[I] := Spalte2 + ';' + Spalte10;
    end;

  finally
    StringList.SaveToFile('New_' + Filename);
    StringList.Free;
  end;
end;					

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

var sl, sl2: TStringList;
    i: integer;
begin
 sl:= TStringList.Create;
 sl2:= TStringList.Create;
 sl.LoadFromFile('C:\somefoo.txt');
 for i:= 0 to sl.Count-1 do
   begin
      ExtractStrings([';'], [''''], PChar(sl[i]), sl2);
      // nu is sl2[1] deine 2te, sl2[9] deine 10te Spalte - sofern keine Spalte leer ist
   end;					

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

for I := 0 to StringList.Count - 1 do  
    begin  
      Line := StringList[I];  
      Len := Pos(';',Line);  
      Buffer := Copy(Line,Len+1,9999); // Rest nach erstem Semikolon  

 
      Len := Pos(';',Buffer);          // Achtung hier den Rest verwenden  
      Spalte2 := Copy(Line,1,Len-1);   // Inhalt der zweiten Spalte  
      Buffer := Copy(Line,Len+1,9999); // Rest nach zweitem Semikolon					

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

var sl, sl2: TStringList;
    i: integer;
begin
 sl:= TStringList.Create;
 sl2:= TStringList.Create;
 sl.LoadFromFile('C:\somefoo.txt');
 for i:= 0 to sl.Count-1 do
   begin
      ExtractStrings([';'], [], PChar(sl[i]), sl2);
      // nu is sl2[1] deine 2te, sl2[9] deine 10te Spalte - mit Hochkommata
   end;