Wie kann man in Delphi eine Schwarz-Weiss-Bitmap invertieren?

Um in Delphi eine Schwarz-Weiß-Bitmap zu invertieren, kannst du die Pixel der Bitmap durchlaufen und die Farben umkehren. Hier ist ein einfaches Beispiel, wie du das machen kannst:

```delphi
procedure InvertBitmap(Bitmap: TBitmap);
var
x, y: Integer;
PixelColor: TColor;
begin
Bitmap.PixelFormat := pf1bit; // Stelle sicher, dass die Bitmap im 1-Bit-Format ist
for y := 0 to Bitmap.Height - 1 do
begin
for x := 0 to Bitmap.Width - 1 do
begin
PixelColor := Bitmap.Canvas.Pixels[x, y];
// Invertiere die Farbe: Schwarz wird Weiß und umgekehrt
if PixelColor = clBlack then
Bitmap.Canvas.Pixels[x, y] := clWhite
else
Bitmap.Canvas.Pixels[x, y] := clBlack;
end;
end;
end;
```

In diesem Beispiel wird die Bitmap durchlaufen, und jeder Pixel wird überprüft. Wenn der Pixel schwarz ist, wird er auf weiß gesetzt und umgekehrt. Stelle sicher, dass die Bitmap im richtigen Format vorliegt, um die Pixel korrekt zu bearbeiten.