Speicherauslastung senken

[Luckie]

Kein Wunder:

Delphi-Quellcode:

repeat
    if Count = 0 then C := TCanvas.Create;
    C.Handle := GetWindowDC(GetDesktopWindow);
    Pixel := GetPixel(C.Handle,x,y);
    inc(Count);
  until (Pixel = Farbe) or (Count = 1000);
  C.Free;

Du erstellst bei jedem Schleifendurchlauf einen Canvas und gibst nur einen hinter der Schleife wieder frei.