Загрузка и разброс по мемо

[Afftar]

Привет друзья.
Помогите с задачей.
На форме есть 5 компонентов мемо.
Через инди, загружается файл, с 5 строчками текста.
Нужно, чтобы первое строчка занеслась в мемо1, 2 строчка в мемо2 и тд.
Спасибо.

[evg_m]

r:=TstringList.create;
r.loadFromfile();//r.LoadFromstream();
memo1.text:=r.strings[0];
memo2.text:=r.strings[1];

но строчек может быть и не пять а только четыре (или даже три)