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

procedure TForm1.FormCreate(Sender: TObject);
var
   F1: Textfile;
   V1: Char;
   Test: String;
begin
 Test := '';
 AssignFile(F1, 'D:\Test.txt');
 ReSet(F1);
 while not Eof(F1) do
 begin
  Read(F1, V1);
  if V1 = ';' then
  begin
   if Test <> '' then Memo1.Lines.Add(Test);
   Test := '';
  end
  else Test := Test + V1;
 end;
 Form1.Caption := Test;
end;					

1:

neu := copy(s,0,5);					

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:

function Explode(text: string; seperator: Char): tarray;
var 
  s: string; 
  m: Integer; 
  c: Char; 
begin
  Result := nil; 
  s := ''; 
  for m := 1 to Length(text) do 
  begin
    c := text[m]; 
    if c = seperator then 
    begin 
      SetLength(Result, Length(Result) + 1);
      Result[Length(Result) - 1] := s;
      s := ''; 
    end 
    else 
      s := s + c; 
  end;
  if s <> '' then 
  begin 
    SetLength(Result, Length(Result) + 1); 
    Result[Length(Result) - 1] := s; 
  end; 
end;					

1:
2:
3:
4:
5:
6:

type tarray = array of string;
var t: tarray;
begin
  t:=explode('bla;blubb',';');
  showmessage(t[0]);
end;