Переменная TStringList, копирование строк

var T1,T2:TstringList
 begin
   T1 := TStringList.Create;
   T2 := TStringList.Create;
   T1.Text := Memo1.Text; (*вводим в Т1 10 строк текста(к примеру), каждая строка одно слово*)
   .......
end.