Данные из Memo в TStringList

[Ilya_L]

Здравствуйте. Подскажите пожалуйста. Пишу такой код

    Translation.AddStrings(Memo1.Lines);

  for i := 0 to Memo1.Lines.Count - 1 do
    Translation.Add(Memo1.Lines.Strings[i]);

Выдается ошибка EAccessViolation.
Translation - TStringList
До этого я из StringList записывал в Memo, как во втором случае. Может что я не так делаю?

[Прик]

Скорее всего, к моменту манипуляции с Translation объект этот еще не создан.

А вообще-то, присваивать строки в приведенном случае проще с помощью метода Assign (цикл уже не нужен):

Translation.Assign(Memo1.Lines);
//обратное присвоение также корректно
Memo1.Lines.Assign(Translation);
//альтернативный метод:
Translation.Text := Memo1.Lines.Text;

[Ilya_L]

да, нужен был Create