[Страдалецъ]

Вы вот мне скажите, у вас без ошибок сия функция компилится и выполняется?

Код:

function TSection.FindNews(_NewsName: string):string;
var
 i:byte;
begin
  for i:=1 to GetCount do
    if NewsList[i].GetTitleName = _NewsName Then
    begin
      Result :=i;
      Exit;
    end;
  Result := 0;
end;