Title: How to invert a 32 bit Bitmap
procedure invertiere32Bit(Bitmap: TBitmap);
var
i, j: Integer;
P: PDWord;
begin
p := Bitmap.Scanline[Bitmap.Height - 1];
for j := 1 to Bitmap.Height * Bitmap.Width do
begin
p^ := not p^;
Inc(p);
end;
Bitmap.Assign(bitmap);
end;