Разделение строки

[xTANATOSx]

procedure TForm1.Button2Click(Sender: TObject);
var
sim,param:array [1..127] of string;
pam,rez:array [0..127] of integer;
str,Tstr,tak:string;
Its,dov,nom,flag,mnog,dli:integer;
begin
str:=edit1.Text;
dov:=Length(str);
for Its:=1 to dov do
begin
sim[its]:=str[Its];
end;
edit2.Text:='';
for Its:=1 to dov do
begin
edit2.Text:=edit2.Text+sim[Its];
end;
Tstr:=str;
rez[0]:=1;
flag:=0;
while AnsiPos(';',Tstr)<>0 do
begin
flag:=flag+1;
mnog:=flag-1;
pam[flag]:=AnsiPos(';',Tstr);
rez[flag]:=pam[flag]+mnog;
delete (Tstr,pam[flag],1);
end;
edit3.Text:=Tstr;
edit4.Text:='';
for Its :=1 to 20 do
begin
edit4.Text:=edit4.Text+inttostr(pam[its]); //)
end;

end;

В Edit1.text находитса строка которая содержит несколько ; мне нада записать в массив param части строк находящиеся в едите и разделиниї ; етим знаком .
Например
123;56;7 --> 123 56 7
wdr;wd;dw --> wd wd dw
В массиве Rez находятся цифри котороие показуют под каким номером символи ; как зделать дальше?
Пробивал в масив запихать
dli:=rez[flag]-rez[flag-1];
param[flag-1]:=copy(str,rez[flag],dli);
но непомогает.
Коротко.Есть строка есть под какими номерами расположени знаки ';' нада записать то шо между етими знаками в масив
P.S. В исходнику есть много ненужных действий,ето для проверки.

[AlDelta]

В Edit1.text находитса строка которая содержит несколько ; мне нада записать в массив param части строк находящиеся в едите и разделиниї ; етим знаком .

procedure TForm1.Button2Click(Sender: TObject);
var
param:array [1..127] of string;
str:string;
i,count,StrLength:integer;
begin

str:=edit1.Text;
StrLength:=Length(str);
count:=1;

for i:=1 to StrLength do
begin
    if str[i]<>';' then
        Param[count]:=Param[count]+str[i]
    else
        count:=count+1;

    StringGrid1.Cells[0,count-1]:=Param[count];
end;

end;

[Stilet]

Ребята, для этого есть TStringList со своим DelimitedText

procedure TForm1.Edit1Change(Sender: TObject);
begin
ListBox1.Items.Delimiter:=';';
ListBox1.Items.DelimitedText:=Edit1 .Text;
end;

Или это контрольная?

[xTANATOSx]

AlDelta спасибо!