LongWord(pc^) := $3D3D3D3D; typecast delphi 2009 win32

[JXJ]

estoy probando delphi 2009. win32
con un proyecto que tengo.. y donde se hace typecast
obtengo el error
[DCC Error] SimpleXML.pas(709): E2089 Invalid typecast

Código Delphi [-]
procedure OctetToChars(po: POctet; aCount: Integer; pc: PChars);
var
    o: Integer;
begin
    if aCount = 1 then begin
        o := po.a shl 16;
        LongWord(pc^) := $3D3D3D3D;
        pc.a := Base64Map[(o shr 18) and $3F];
        pc.b := Base64Map[(o shr 12) and $3F];
    end
    else if aCount = 2 then begin
        o := po.a shl 16 or po.b shl 8;
        LongWord(pc^) := $3D3D3D3D;
        pc.a := Base64Map[(o shr 18) and $3F];
        pc.b := Base64Map[(o shr 12) and $3F];
        pc.c := Base64Map[(o shr 6) and $3F];
    end
    else if aCount > 2 then begin
        o := po.a shl 16 or po.b shl 8 or po.c;
        LongWord(pc^) := $3D3D3D3D;
        pc.a := Base64Map[(o shr 18) and $3F];
        pc.b := Base64Map[(o shr 12) and $3F];
        pc.c := Base64Map[(o shr 6) and $3F];
        pc.d := Base64Map[o and $3F];
    end;
end;

¿alguna idea de como hacer el typecast?