[Drozh]

Вот так сократить код можно

Код:

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;

Не марел, но работать вроде должен, если не поможет то ошибка в GetInfo, так что выкладывай код