Ошибка фунциии GetTextLen компонента Memo

По всей видимости, функция GetTextLen в компоненте Memo работает не совсем правильно.

Загрузите в Memo1 большой текстовый файл.

var {пример из файла помощи}
Buffer: PChar; Size: Byte; begin
Size := Memo1.GetTextLen; Inc(Size); GetMem(Buffer, Size); Memo1.GetTextBuf(Buffer, Size); ... {не относящийся к делу код...} FreeMem(Buffer, Size); end;

Проблема: Memo1.GetTextLen возвращает размер выводимого, а не всего текста. [000350]

Содержание раздела