[Drozh]

АААА тогда делай так)

Код:

const
 Value: array [0..3] of String = ('Value1', 'Value2', 'Value3', 'Value4');
var
 i, j: Integer;
 Buffer, strRead: String;
begin

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

   for j := 0 to Length(Value) - 1 do
    if Pos(Value[j], 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;