[arman2001]

Сообщение от ART

А подумать самому никак?

Код:

procedure GetLastStrings;
var
 i:integer;
begin
Listbox1.Clear;
for i := memo1.Lines.Count  -  11 to memo1.Lines.Count  -  1 do begin //без проверки на выход за пределы
 listbox1.Items.Add(memo1.Lines[i]); //добавляем в Listbox
end;
end;

Я поторопился, сам догадался.
Все равно спасибо.