[lmikle]

Страдалецъ, можно еще проще:

Код:

var
  L : TStringList;
  S : String;
begin
  L := TStringList.Create;
  L.Text := S;
  // Далее пользуем список строк L
  ...
  L.Free;