type
  TCar = class
  end;

var
  Car1, Car2, Car3: TCar;
  Equal1, Equal2: Boolean;
begin
  Car1 := TCar.Create;
  Car2 := TCar.Create;
  Car3 := Car1;

  //"=" on objects compares references
  Equal1 := Car1 = Car2;
  //equal1 is False

  Equal2 := Car1 = Car3;
  //equal2 is True

  WriteLn('equal1 is ', Equal1);
  WriteLn('equal2 is ', Equal2);
end.