{$MODE DELPHI} // Support "Class"

uses
   Classes; // so we have something to refer to

type
   myStringList= class(TStringList)
   public
      procedure WriteLnList;
   end;

var
  myByte  : Byte;
  myChar  : Char;
  StrList1: TStringList;
  StrList2: myStringList;

procedure myStringList.WriteLnList;
Var
   Loop:Integer;

begin
   For Loop:=0 to Count-1 do
      Writeln(Loop,' contains ',Self[Loop]);
end;
  
begin
  myByte := 65;

  // Cast this Byte to Char using the standard casting method
  myChar := Char(myByte);
  Writeln('myByte standard casting to Char = ',myChar);

  StrList1 := TStringList.Create;
  StrList1.Add('Apple');
  StrList1.Add('Banana');
  StrList1.Add('Orange');
  // Standard casting does not check if we change classes:
  myStringList(StrList1).WritelnList;

  // Casting using 'as' rejects the invalid casting
  StrList2 := StrList1 as myStringList;

  // The following yields the EInvalidCast error
  StrList2.WritelnList;

  StrList1.Free;
end.