1:
2:
3:

i13;15;25;58;256;128;16;32
l15;564;67;31;46;54;
k88;546;54;5					

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

procedure TForm1.Open1Click(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
begin
  if OpenDialog1.Execute then          { Dialog zum Dateiöffnen anzeigen }
  begin
    AssignFile(F, OpenDialog1.FileName);   { Datei ausgewählt }
    Reset(F);
    Readln(F, S);                          { Erste Zeile der Datei lesen }
    Edit1.Text := S;                       { String in ein TEdit schreiben }
    CloseFile(F);

end;
end;
end;					

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

Function GetWordOfAnsiString(Text : string; WordPos : Word): string;
var
 p  : PChar;
begin
  p  := PChar(Text);
  repeat
    Dec(WordPos);
    while p^ <> #0 do
    begin
      if WordPos = 0 then
       Result := Result + p^;
      Inc(p);
    end;
    if WordPos = 0 then Exit;
    Inc(p);
  until p^ = #0;
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:

procedure explode(S: String; C: Char; List: TStrings);
Var
 I, J: Integer;
begin
 List.Clear;
 if S = '' then
  exit;
 J := 1;
 for I := 1 to length(S) do
  if S[I] = C then
  begin
   List.Add(Copy(S, J, I-J));
   J := I+1;
  end;
 List.Add(Copy(S, J, I-J));
end;

function implode(List: TStrings; C: Char): String;
Var
 I: Integer;
begin
 if List.Count = 0 then
 begin
  Result := '';
  exit;
 end else
  Result := List.Strings[0];
 For I := 1 to List.Count-1 do
  Result := Result + C + List.Strings[I];
end;					

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

Var
 List : TStringList;
 S : String;
 I : Integer;
begin
 S := 'Eintrag1;Eintrag2;Eintrag3';

 List := TStringList.Create;

 Explode(S,';', List); // String->List
 for I := 0 to List.Count-1 do
  // in List.Strings[I] sind die Einträge

 S := Implode(List, ';'); // List->String
 List.Free;
end;					

1:

1;"Text mit "" im Text";"oder mit ; im Feld";123					

1:
2:
3:
4:

1
Text mit " im Text
oder mit ; im Feld
123					

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

var
  List: TStringList;
  s   : string;
  i   : integer;
begin
  List := TStringList.Create;

  s := 'test1;test2;test3;test4';
  List.Delimiter := ';';
  List.CommaText := s;

  for i := 0 to ( List.Count - 1 ) do begin
    // was auch immer
  end;

  List.Free;
end;