Смещается фокус в компоненте TMemo при добавлении текста

При добавлении текста из файла в компонент TMemo(прокрутка текста в компоненте включена), фокус возвращается на начало, т. е. компонент прокручивается назад. Ввод текста производится следующим образом:

while not Eof(MainArray[1,1].F) do
begin
  Readln(MainArray[1,1].F, s);
  Memo1.Text := Memo1.Text + s + #13#10;
end;

Можно ли отключить эту возможность программно или через свойства?