Habe mir dein Teil mal angesehen.
Du versuchst Propertys zu speichern btw.. zu setzen die du gar nicht zugewiesen hast.
Emil, sei doch bitte so gut und denke nicht schon drei Schritte weiter, sondern fange ganz vorne an und probiere die
procedure Test
; in einen kleinen Konsolenprogramm mit eingeschalteter Bereichprüfung aus.
Hier jetzt mal als minimalstes Beispiel.
Delphi-Quellcode:
procedure SetProperty(V: integer);
begin
// bewusst leer!
end;
procedure Test;
var
DesktopDeviceContext: HDC;
I: Integer;
begin
for I := 0 to 100 do
begin
DesktopDeviceContext := GetDC(0);
SetProperty(DesktopDeviceContext);
end;
end;