delphi - ネストされた関数でパラメーターを渡す

Question

このネストされた関数があり、ここで説明されている問題の可能な解決策として、パラメーターとして "S" を受け取るように SearchName2 を変更したいと考えています。

私はまだ Delphi を学んでおり、何か助けていただければ幸いです。ネストされた関数の例を探していますが、似たようなものは見つかりません。

PFI = ^TFI;           
TFI = record
    Id         : TToken;
    Name       : TName;
    Parameters : string;
end;

function TListFI.IsIn(S: PChar): PFI;

  function SearchName2(Item: PFI):Boolean;
  var N1, N2: PChar;
  begin
    N1:= StrNew(Item^.Name);
    N2:= StrNew(S);
    SearchName2:= (StrComp(StrUpper(N1), StrUpper(N2)) = 0);
    StrDispose(N1);
    StrDispose(N2);
  end;

begin
  IsIn:= PFI(FirstThat(@SearchName2));
end;