[Drozh]

Вот это не то?

Код:

var
 i: Integer;
 Buffer: String;
begin

 for i := 0 to Memo1.Lines.Count - 1 do
  if Pos('Value1', Memo1.Lines.Strings[i]) > 0 then
  begin
   Buffer := GetInfo(z);

    if Pos('Multi', Buffer) > 0 then
     Memo3.Lines.Add('Mnogo')
    else
     if Pos('Mono', Buffer) > 0 then
      Memo3.Lines.Add('Malo')
     else
      Memo3.Lines.Add('Error')
  end;