как разделить текст на переменные

[GAGARIN-NEW]

Подскажите плиз как разделить текст
слово1%слово2%слово3
на
a:='слово1'
b:='слово2'
c:='слово3'

(можно разделять и другими знаками кроме % но чтобы они очень редко или вообще невстречались при письме(не использовать ';' тк уже использую этот символ...))
напишите плс польностью код...

[Alex21]

var t:TStringList;
    s:string;
    i:integer;
begin
  s:='Ваша%20строка%20для%20разделения';
  t:=TStringList.create; //создаём класс
{Здесь используем функцию stringReplace для замены 
символов "%20" на символы конца строки}
  t.text:=stringReplace(s,'%20',#13#10,[rfReplaceAll]);
{убедимся что строка разбита:}
    for i:=0 to t.Count-1 do
   showmessage(t[i]);
  t.Free; {уничтожаем класс}
end;

Вместо %20 можно использовать любую комбинацию символов.

[GAGARIN-NEW]

Пасиб мне нужно только первые 3 фразы/слова по этому вот что у меня вышло:

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
    a,b,c,s:string;
begin
  s:='СЛОВО1%СЛОВО2%СЛОВО3';
  t:=TStringList.create;
  t.text:=stringReplace(s,'%',#13#10,[rfReplaceAll]);
  a:=t[0];
  b:=t[1];
  c:=t[2];
  t.Free;
end;