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

var
  array1: Array of String;  // <-- da kommen die statements rein
  boeser_string: String; // <-- das sei der string mit '01a67a07b84b4a1a1b...'

procedure boesen_string_zersaegen;
var
  i: Integer;
  S: String;
begin
  SetLength(array1, 0);
  for i:=1 to length(boeser_string) do
  begin 
    if boeser_string[i] in ['0'..'9'] then
    begin
      SetLength(array1, Length(array1)+1);
      array1[Length(array1)-1]:=boeser_string[i];
    end
    else begin
      S:=array1[Length(array1)-1];
      S:=S+boeser_string[i];
      array1[Length(array1)-1]:=S;
    end;
  end;
end;					

1:
2:

    if boeser_string[i] in ['0'..'9'] then   
    begin					

1:
2:
3:
4:

 _
|  DANKE ^^
|
v					

1:

if (ORD(boeser_string[i])>47) and (ORD(boeser_string[i])<58) then