Erro de Access Violation

type 
  Long = Longint; 

  ERRORMSG=record 
  bErrClass,bErrCode,bAddHi,bAddLo:byte; 
  end; 

  TService = record 
    bService, fShortCnf: byte; 
    wTargetAddress: Word; 
    wIndex, wDataLength: Word; 
    bTeleType: byte; 
    Data: record 
        lDate: Long; 
        abData: array[0..9] of Byte; 
    end; 
    awPA, awPE: array[0..9] of Word; 
    fpbDataPointer: PChar; 
    abReserve: array[0..9] of Byte; 
    Error: ERRORMSG; 
  end;

  PService = ^TService; 

var 
   Servico:PService; 
begin


{kra por ser um Pointer, vc tem q reservar um espaco na memória ram com isso:}

GetMem(Servico,Sizeof(TService));

{se der erro, tente   GetMem(Servico,Sizeof(PService));.
se continuar dando erro, tente GetMem(Servico);

to falando q se der erro, pq n to com delphi aberto...

       }

 
   Servico.bService:=3; 
   Servico.fShortCnf:=0; 
   Servico.wTargetAddress:=0; 
   Servico.wIndex:=11005; 
   Servico.wDataLength:=0; 
   Servico.bTeleType:=$80; 
   Servico.Data.lDate:=3; 
end;