[saylar_06]

Товарищи! Помогите кодом (очень нужно) есть строка(которая постоянно меняется):

asduay123123:asjasdf342523:234234234:009034953sdf: 234234234

как мне вытаскивать постоянно третье и четвертое слово?

3: 234234234
4: 009034953sdf

P.S Заранее благодарен!

....

Просидел почти два часа, пришел к этому...

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var
  i, o : Integer;
begin

  for i := 1 to Length (sMemo1.Text) do
    if sMemo1.Text[i] = ':' then
      for o := i + 1 to Length (sMemo1.Text) do
        if sMemo1.Text[o] = ':' then
          begin
           Memo1.Lines.Add( Copy(sMemo1.Text, i + 1, o) );
           break;
          end;
end;

но все равно не работает