[saylar_06]

ты чертовски прав, по этому мы и учимся!

В общем решил задачу сам, но все равно спасибо тебе за помощь!

Код:

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

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

end;