Delphi - problem s pameti

[Borg2of3]

Zdravim.
Vsiml jsem si zajimavy veci u tohodle zdrojaku. Jeho ukolem je vykreslovat do shape barvu pixelu nad kterym je zrovna kurzor. Vse funguje normalne az na to, ze kdyz si otevru spravce uloh a sleduju chovani projekt.exe, tak mi kazdou vterinu naroste vyuzita pamet programem cca o 2kB. Pokud by tak aplikace bezela treba hodinu, tak uz je to docela dost pameti... pritom nechapu proc se to tak deje?
Diky

http://borg2of3.net/zdrojak2.txt

[€agle]

Delphi neznam, ale doporucil bych GetDC(0) zavolat pouze jednou a ulozit do nejake globalni promenne a ne ho volat porad...

[Borg2of3]

Diky za odpoved. Zkusil jsem to presunout do formCreate aby se to volalo jen jednou, ale bohuzel vysledek je porad stejnej