[Sky.NET]

Вот часть кода:

PHP код:

...
              if FileExists(Dir.Text + FLinks[j].JS) then
                Memo1.Lines.LoadFromFile(Dir.Text + FLinks[j].JS)
              else
                LQuestion.Caption := 'Файл "' + Dir.Text + FLinks[j].HTM + '" не найден';
              begin
                Memo1.Text := UrlDecode(Memo1.Text);
                Memo1.Text := ReplaceStr(Memo1.Text, '7c', '');
                Memo1.Text := ReplaceStr(Memo1.Text, '|', #13#10);
                for a := 0 to Memo1.Lines.Count - 1 do
                  if Length(Memo1.Lines.Strings[a]) = 12 then
                    if (Pos('split', Memo1.Lines.Strings[a]) = 0) then
                    begin
                      s2 := Memo1.Lines.Strings[a];
... 


Выполняется всё отлично. Значение свойства Height = 17 (Как раз видна 1 строка), переменная s2 содержит то, что нужно.
Устанавливаю значение свойства Height < 17 (Строки не видно), переменная s2 пустая.
Устанавливаю значение свойства Height = 0, в переменной s2 вообще бред какой-то.
Почему так происходит?

P.S.
Delphi 2010 + Update 4/5 + Hotfix 2 + HelpUpdate 3