Problem bei Supersampling (Verkleinern einer TBitmap)

[hellboyPS]

Hallo und danke für die Antworten.
Das mit ScanLine werde ich mal umsetzen, nichts desto trotz funktioniert die Prozedur jedoch nicht so wie man sich das vorstellt. Auch bei Graphics32 werd ich mich reinarbeiten, hört sich vielversprechend an. Die Mandelbrotmenge wird eben ganz simpel erzeugt und dann gefärbt. Der Quellcode hierzu sieht ungefähr so aus:

Delphi-Quellcode:

for x := 0 to bitmap.width do
begin
 for y := 0 to bitmap.height do
 begin
  re := (x/bitmap.width)*zoom+movex;  // mit Startwerten zoom = 4, move = -2
  im := (y/bitmap.height)*zoom+movey;
  rez := 0;
  imz := 0;
  a := true;
  it := 0;
  for i := 0 to iterations do
  begin
   if a then
   begin
    rezold := rez;
    rez := rez*rez-imz*imz+re;
    imz := 2*rezold*imz+im;
    if rez*rez+imz*imz > 4 then
    begin
     a := false;
     it := i;
    end;
   end;
  end;
  col := (rez*rez+imz*imz)/4*colchangevar*10
  if a then
   bitmap.canvas.Pixels[x,y] := clBlack
  else
   bitmap.canvas.Pixels[x,y] := round(col+256*col+256*256+col);
 end;
end;

Das Verkleinern mit Delphiinternen Funktionen geht auch wirklich schnell nur führt es nicht zu gewünschten Ergebnis, ich bräuchte also etwas, das in dieser Form das Bild verkleinert.