TTimer Speicherproblem (EOutOfResource Error)

[Periander]

hey danke, auf den ersten blick sieht der speicher super aus,
werde das nun mal länger testen.

der korrekte code für die funktion heißt dann:

Delphi-Quellcode:

function DesktopColor(const x,y: integer): TColor;
var
  DesktopDC: HDC;
begin
  DesktopDC := GetWindowDC(GetDesktopWindow);
  Result := GetPixel(DesktopDC, x, y);
  ReleaseDC(GetDesktopWindow,DesktopDC);
end;