Скопировать текст между словами

function ParseStr(str, tag1, tag2: string): tstrings;
var
  st,fin:Integer;
begin
  Result :=TStringList.Create;
  repeat
    st :=Pos(tag1, str);
    if st > 0 then begin
      str :=Copy(str, st+length(tag1), length(str)-1);
      st :=1;
      fin :=Pos(tag2, str);
      Result.Add(Copy(str, st, fin-st));
      str :=Copy(str, fin+length(tag2), length(str)-1);
    end;
  until st<=0;
end;

И использовать для строки:

 s := ParseStr(s,'<hidden>', '<name>');

Но получаю ошибку:

Incompatible types: 'string' and 'TStrings'

Если к memo1 подключаю то работает:

Memo1.Lines := ParseStr(Memo1.Text,'<hidden>', '<name>');

Как решить проблему ?