如何在Pascal中检查对象的有效方法名？

uses
  TypInfo;

function IsValidMethodName(const AObject: TObject; const AMethodName: string): Boolean;
var
  MethodList: PTypeInfo;
  MethodCount, I: Integer;
  MethodName: string;
begin
  Result := False;
  MethodList := GetTypeData(AObject.ClassInfo)^.MethodTable;
  MethodCount := GetTypeData(AObject.ClassInfo)^.MethodCount;
  
  for I := 0 to MethodCount - 1 do
  begin
    MethodName := MethodList^.NameList[I].Name;
    if SameText(AMethodName, MethodName) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

if IsValidMethodName(myObject, 'MyMethod') then
  Writeln('方法名有效')
else
  Writeln('方法名无效');