[Alegun]

Да, циклом, но всё равно в код, из мемо примерно так

Код:

...
for i := 0 to Memo.Lines.Count -1 do
case StrToInt(Memo.Lines[i]) of ..
...

новые команды забиваются и выполняются немного по-другому, раздельно