Добрый день. есть код:

Код:

uses uTransformText, uGlobalVariables; (*внешние модули*)

procedure TForm1.Button1Click(Sender: TObject);
var DataIn,DataOut : TStringList;
begin
    DataIn := TStringList.Create;
    DataOut := TStringList.Create;
    DataIn.Text := Memo1.Text; (*просто ввод строк из МЕМО в ПЕРЕМ*)
       TransformText(DataIn, DataOut); (*вызов основной ПРОЦ обработки текста*)
    gRequestStrings := DataOut; (*Перенос строк запроса в ГлобПерем*)
    //ShowMessage(gRequestStrings.Text); (*вот тут строки есть*)
    Memo1.Text := DataOut.Text; (*контрольное отображение результата*)
    DataIn.Free;
    DataOut.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   //gRequestStrings := TStringList.Create; (*и без инициализации ГлобПЕрем работает*)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(gRequestStrings.Text); (*вот тут ничего нет*)
end;

1. нажимает на кнопку1, строки копируются из МЕМО1 в ПЕРЕМ, обрабатываются и возвращаются. тут все нормально. в ГлобПЕрем gRequestStrings строки есть
2. нажимаем на кнопку2. по идее в gRequestStrings должны сохранятся данные, но их там нет. кроме того почемуто нет необходимости в создании gRequestStrings при запуске программы

ВОПРОС:
Что получается? ДЕЛФИ без разрешения создает-уничтожает gRequestStrings при нажатии кнопки1?
З.Ы. только не надо о вреде ГлобПерем. это чиста учебный код, для изучения ДЕЛФИ

[Pyro]

все объекты это указатели

Код:

gRequestStrings := DataOut; (*Совсем не перенос строк*)
...
DataOut.Free; // равносильно gRequestStrings.Free;

[ALexandr555]

Assign или x.text:=y.text

[NumLock]

+AddStrings:

Код:

var
  AStringList: TStringList;
begin
  AStringList:=TStringList.Create;
  AStringList.AddStrings(Memo1.Lines);
  Memo2.Lines.AddStrings(AStringList);
  AStringList.Free;
end;