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:

type Stringarray: array of string;

function TForm1.explode(s_divider,s_string:string) : Stringarray;
  var
    i,j: integer;
    resultarray: Stringarray;
begin
        while (i<Length(s_string)+1) do
        begin
                i:=i+1;
                if s_string[i]<>s_divider then
                        resultarray[j] := resultarray[j]+s_string
                else
                        j:=j+1;
        end;
Result := resultarray;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    laenge: integer;
begin
array1 := explode(':',Edit1.Text);
//laenge := Length(array1);
end;