with memo1.lines do
begin
add('');
delete(count - 1);
end;
memo1.perform(em_LineScroll, 0, memo1.lines.count - 1);