Вывод информации в Memo из файла.

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
i, count: integer;
str, temp: string;
begin
count := 0;
AssignFile(F, 'my.txt');
Rewrite(F);
str := Memo1.Text;
for i := 0 to length(str) do
begin
if count = 100 then
begin
count := 0;
Writeln(F, temp);
temp := '';
end;
temp := temp + str[i];
inc(count);
end;
if temp <> '' then
WriteLn(F, temp);
CloseFile(f);
end;

Примерно такой код.

[Фибер Оптик]

Всё оказалось проще простого: я просто убрал горизонтальный скролл.
Всем огромное спасибо.