Превращаем memo в в окно логирования1

[vaximan]

Доброго времени светлый форум!
Делаю программу в которой на форме присутствует memo.
Нужно чтобы:
1. В memo выдавался текст содержащийся в переменных типа string,
делаю это так

smemo1.Text:=smemo1.Text+#13#10;
smemo1.Text:=smemo1.Text+a;

(Причем текст выданный ранее должен сохраняться и суммироваться с новым)
2. memo должен при заполнении прокручивать свое положение после каждой новой строки (то есть user должен видеть появление новых строк и все время наблюдать происходящие изменения)
пытаюсь делать это так
a)

sMemo1.Perform(EM_LINESCROLL,0,sMemo1.Lines.Count-1);

- на таймер
b)

sMemo1.Lines.Add(' ');
SendMessage(sMemo1.Handle, EM_SCROLL, SB_PAGEDOWN, 0);

-тоже на таймер
Что не устраивает:
1. При добавление новых строк в memo фокус все время (на мгновение перед добавлением) смещается в начало memo.
2. Прокрутка происходит мгновенно к концу текста, минуя по строчное добавление.

Вот эти 'траблы' я бы хотел исправить, подходящих функций ни в хеле ни в сети не нашел.
Буду рад услышать ваши варианты!
Спасибо за внимание

[WinCoder]

1. При добавление новых строк в memo фокус все время (на мгновение перед добавлением) смещается в начало memo.

Даже так?

var
  s: string;
begin
  s := 'строка лога';
  sMemo1.Lines.Add(s);
end;

2. Прокрутка происходит мгновенно к концу текста, минуя по строчное добавление.

Значит текст добавляется не построчно.

[vaximan]

Ошибка была в не построчном вводе! Спасибо)