[morebeauty]

Код:

function Search (Value: olevariant; fFirst: integer {ещё параметр}): string;

Не может быть fFirst интеджером. Это экземпляр класса, среди которых осуществляем поиск. fFirst.Next - следующий. И так далее до nil'а.
Возвращать функция тоже должна экземпляр класса, который соответствует строке поиска. Но какого класса? Функция ведь должна обслуживать несколько похожих классов.