Загнать в TStringlist текст

[Polotenchik]

Приветствую! Имеется переменная name типа string. В ней хранится такой вот текст:

name:= 'Привет как дела&Суслик&Чумака&И так далее';

мне надо в переменную sl: TstringList загнать этот текст, отбросив разделющий признак &. Т.е в результате в sl должно быть:

Привет как дела
Суслик
Чумака
И так далее

Не подскажете, как отбросить признак & и загнать текст в sl?

Заранее спасибо!

[uberchel]

Держи )

var
   Name: string;
   TS: TStringList;
begin
  Name:=  'Привет как дела&Суслик&Чумака&И так далее';
  TS:= TStringList.Create;
  TS.Text:= StringReplace(Name,'&',#13#10,[rfReplaceAll]);
  Memo1.Lines.Add(TS.Text);
  TS.Free;
end;

[Polotenchik]

Сообщение от uberchel

Держи )

var
   Name: string;
   TS: TStringList;
begin
  Name:=  'Привет как дела&Суслик&Чумака&И так далее';
  TS:= TStringList.Create;
  TS.Text:= StringReplace(Name,'&',#13#10,[rfReplaceAll]);
  Memo1.Lines.Add(TS.Text);
  TS.Free;
end;

Ааа блин мне же уже подобное приводили! Теперь я понял все! Спасибо!

[JTG]

Всё проще

Sl.delimiter := '&;
Sl.delimitedText := 'foo&bar';