如何在Delphi中使用Default(T)测试泛型类型变量是否相等？

program TestDefault;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function IsEqual<T>(const A, B: T): Boolean;
begin
  Result := A = B;
end;

var
  A, B: Integer;
  S1, S2: string;
begin
  A := 1;
  B := 1;
  WriteLn(IsEqual<Integer>(A, B)); // True

  S1 := 'Hello';
  S2 := 'Hello';
  WriteLn(IsEqual<string>(S1, S2)); // True

  S1 := '';
  S2 := 'Hello';
  WriteLn(IsEqual<string>(S1, S2)); // False

  ReadLn;
end.