проблема с вырезанием подстроки

[hunter03]

Здравствуйте, у меня такая проблема:
у меня в файле есть строка
абвг*дежз&ийк#eeee
мне нужно в 1 листбокс вставить то что до *, во второй то что после *и до &, в третий то что после & и до # и в четвертый то что после решетки
пока пытаюсь сделать так:

procedure TForm1.btn1Click(Sender: TObject);
const dm='$|';
begin
 AssignFile(F, 'правила.txt'); //открыли файл
Reset(F);
i := 0; //начало массивов
while not Eof(F) do
begin
Readln(F, s);//читаем в строку s
s := Trim(s);// освобождаемся от крайних пробелов (на всякий случай)

 for i := 1 to Length(s) do   begin
    if Pos(s[i],Dm) > 0 then  begin
      s[i]:='!';
      k := Pos('!', s);
      end;

 end ;
x[i]:=Copy(s,k-(k-1),k-1);
Delete(s, k-(k-1), k);
s := Trim(s);
      Y[i] := (s);
end;

CloseFile(f);
cbb1.Items.Add(x[i]);
cbb2.Items.Add(y[i]);
end;

я разделители меняю на "!" и вырезаю...но не могу никак понять как вырезать прально 3 и 4 подстроку...

[Stilet]

procedure TForm1.btn1Click(Sender: TObject);
const dm='$|';
var i,j:integer;
begin
 AssignFile(F, 'правила.txt'); //открыли файл
Reset(F);
i := 0; //начало массивов
while not Eof(F) do begin
 Readln(F, s);//читаем в строку s
 s := Trim(s);// освобождаемся от крайних пробелов (на всякий случай)
 ss:='';i:=1;j:=1;
 while (i<Length(s))and(s[i]<>'*') do inc(i); 
  ListBox1.Itemd.Add(Copy(s,j,i-j+1));j:=i+1;
 while (i<Length(s))and(s[i]<>'&') do inc(i); 
  ListBox2.Itemd.Add(Copy(s,j,i-j+1));j:=i+1;
...
 И так остальные части
end;

CloseFile(f);
cbb1.Items.Add(x[i]);
cbb2.Items.Add(y[i]);
end;

Понял идею?

[hunter03]

Понятно, спасибо!!!