[FreeUser]

GetInfo - операция связанная с получением информации.
Результат (z):string;
---------

Код:

For i:=0 to memo1.lines.count-1 do
begin

if pos('Value1',memo1.Lines.ValueFromIndex[i])>0 then
   begin
       memo2.Lines.Insert(i,GetInfo(z));
  if pos ('Multi',memo2.Lines.ValueFromIndex[i])>0 then
            memo3.Lines.Insert(i,'Mnogo')
  else
    if pos('Mono',memo2.Lines.ValueFromIndex[i])>0 then
        memo3.Lines.Insert(i,'Malo')
    else
        memo3.Lines.Insert(i,'Error')
    end;

Таких скриптов 4, одни друг за другом, т.к. Value - 4 шт. Т.е. достаточно скопировать этот код 4 раза, проставить значения для Value от 1 до 4.
Этот цикл не работает . Гонит одни error'ы. Я грешу на то что у меня не правильно построена работа с memo. Разберитесь кто может.

В memo1 сидит текст (z), о нем GetInfo получает данные, которые и пишет в "буфер" memo2.
Memo1 - содержит данные
Memo2 - типа буфера
Memo3 - вывод результата
На форме выглядит как

------------------
| M | M |
| E | E |
| M | M |
| O | O |
| 1 | 3 |
------------------
Memo2 от глаз юзера скрыт, т.к. в нем проводятся все операции.