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:

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);


  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := StrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5); // mehrere auf einmal um schneller arbeiten zu können
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index); // wirkliche Länge festlegen
end;					

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

var
  exploded: TStringDynArray;
  i : integer;
begin
for i := 0 to memo1.Lines.count - 1 do
  exploded := explode(';', memo1.Lines.text);
  memo2.Lines.Add(exploded[3]);                // nach dem dritten ; string in memo2 adden
end;					

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

var 
  exploded: TStringDynArray; 
  i : integer; 
begin 
for i := 0 to memo1.Lines.count - 1 do 
  exploded := explode(';', memo1.Lines.strings[i]);   // zeile die gecheckt wird :) 
  memo2.Lines.Add(exploded[3]);                // nach dem dritten ; string in memo2 adden 
end;					

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

var 
  exploded: TStringDynArray; 
  i : integer; 
begin 
  for i := 0 to memo1.Lines.count - 1 do
  begin
    exploded := explode(';', memo1.Lines.strings[i]);   // zeile die gecheckt wird :) 
    memo2.Lines.Add(exploded[3]);                // nach dem dritten ; string in memo2 adden 
  end;
end;