while([/COLOR][COLOR="#0000BB"]sResult[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]Length[/COLOR][COLOR="#007700"]()[/COLOR][COLOR="#0000BB"]Memo1[/COLOR][COLOR="#007700"]->[/COLOR][COLOR="#0000BB"]Lines[/COLOR][COLOR="#007700"]->[/COLOR][COLOR="#0000BB"]Add[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]IntToStr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]i[/COLOR][COLOR="#007700"]));[/COLOR][COLOR="#FF8000"]// чтобы видеть процесс генерации
[/COLOR][COLOR="#007700"]for([/COLOR][COLOR="#0000BB"]j[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#0000BB"]j[/COLOR][COLOR="#007700"][/COLOR][COLOR="#0000BB"]ProcessMessages[/COLOR][COLOR="#007700"]();[/COLOR][COLOR="#FF8000"]// чтобы не подвисал интерфейс