TMemo

Как заставить курсор в TMemo, при добавлении текста и передачи фокуса после каждой строки, появляться внизу (т.е. в конце каждой последней строки), а не сверху окна?
Метод типа:
Memo1->SetFocus();
Memo1->SelStart=(кол-во переданных символов);
Memo1->SelLength = 0;
не прокатывает, через некоторое время курсор начинает появляться только в середине текста.
В RichEdit все работает нормально, но только очень медленно