Fehlersuche - komm nicht weiter

[schwa226]

Hi,

ich habe ein Programm, dass StayOnTop ist.

Wenn nun der PC gesperrt ist bekomme ich nach ~30min diese Meldung:

Zitat:

Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Das Handle ist ungültig.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Systemressourcen erschöpft.'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Falscher Parameter.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Falscher Parameter.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EStackOverflow mit Meldung 'Stack-Überlauf'. Prozess xHTPC.exe (1604)

und der Cursor steht in Graphics:

Delphi-Quellcode:

procedure GDIError;
const
  BufSize = 256;
var
  ErrorCode: Integer;
{$IF DEFINED(CLR)}
  Buf: StringBuilder;
{$ELSE}
  Buf: array [Byte] of Char;
{$IFEND}
begin
{$IF DEFINED(CLR)}
  Buf := StringBuilder.Create(BufSize);
{$IFEND}
  ErrorCode := GetLastError;
  if (ErrorCode <> 0) and (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,
    ErrorCode, LOCALE_USER_DEFAULT, Buf, BufSize, nil) <> 0) then
{$IF DEFINED(CLR)}
    raise EOutOfResources.Create(Buf.ToString)
{$ELSE}
    raise EOutOfResources.Create(Buf)
{$IFEND}
  else
    OutOfResources;
end;

raise EOutOfResources.Create(Buf)

Wie kann ich herausfinden wo es von meinem Programm aus einen Fehler gibt?
Denn mit Umschalt-F8 weiter gehe kommen noch mehr Meldungen in der Graphics.
Der Taskmanager sagt mir das dass Programm ~3MB RAM braucht.

Ich habe Bitmaps & TIcons in meinem Programm.
Das komische ist halt, dass dieser Fehler nur auftritt wenn der PC gesperrt ist!?