type
 MYLIST=record
  count:integer;
  data:array of string;
 end;

procedure Explode(gde:string;kak:string;var list:MYLIST);
var
 p:integer;
 n:integer;
begin
 n:=0;
 repeat
   p:=pos(kak,gde);
   if p>0 then
    begin
      inc(n);
      setlength(list.data,n);
      list.data[n-1]:=copy(gde,1,p-1);
      delete(gde,1,p+length(kak)-1);
    end;
  until p=0;
 list.count:=n;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 mas:MYLIST;
begin
 Explode('::::::parameter1:::parameter2:::parameter3:::parameter4:::',':::',mas);
 showmessage(mas.data[3]);
end;