EInvalidPointer ohne Sinn?

[DeddyH]

Delphi-Quellcode:

const Lesen      = $01;
      Schreiben  = $02;
      Oeffnen    = $04;
      Loeschen   = $08;
      Ausfuehren = $10;

var Berechtigung: Word = 17; //Lesen und Ausführen

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Berechtigung and Schreiben) > 0 then
    ShowMessage('Schreiben erlaubt')
  else
    ShowMessage('Schreiben nicht erlaubt');

  Berechtigung := Berechtigung and not Lesen;

  if (Berechtigung and Lesen) > 0 then
    ShowMessage('Lesen erlaubt')
  else
    ShowMessage('Lesen nicht erlaubt');

  Berechtigung := Berechtigung or Schreiben;

  if (Berechtigung and Schreiben) > 0 then
    ShowMessage('Schreiben erlaubt')
  else
    ShowMessage('Schreiben nicht erlaubt');
end;