[FreeUser]

Код:

var
 i, Index: Integer;
 Buffer, strRead: String;
begin

 for i := 0 to Memo1.Lines.Count - 1 do
 begin
  strRead := Memo1.Lines.Strings[i];
  Buffer := '';

   for Index := 1 to 4 do
    if Pos('Value'+IntToStr(Index), strRead) > 0 then
    begin
     Buffer := GetInfo(strRead);
      if Pos('Multi', Buffer) > 0 then
       Memo2.Lines.Add('Mnogo')
      else
       if Pos('Mono', Buffer) > 0 then
        Memo2.Lines.Add('Malo')
       else
        Memo2.Lines.Add('Error');
     Break;
    end;
 end;

Не понял...А как же это Value? У меня там 4 разных Value. А тут 4 раза 1 Value