Bilder Verschlüsseln

[terminatooooor]

Delphi-Quellcode:

procedure XorBitmapData(ABitmap: TBitmap; Key: Cardinal);
var p: PByte;
    i,j: Integer; 
begin 
  ABitmap.Pixelformat := pf24Bit; 
  for i := 0 to ABitmap.Height - 1 do 
  begin 
    p := ABitmap.Scanline[i]; 
    for j := 0 to (ABitmap.Width * 3) - 1 do 
    begin 
      p^ := p^ xor Key; 
      inc(p); 
    end; 
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
    XorBitmapData(Image1.Picture.Bitmap, StrToInt(Edit1.Text));
end;

end.

warum funktioniert das nicht???

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]