Fehler in Anwendung?!? Windows 2000 Pro

[Luckie]

Wenn man eine Vermutung hat, dann kannman ch den Cursor in die Prozedur stellen und F4 drücken. Dann bleibt er beim Ausführen an der Stelle stehen und du kannst ab da mit F7 weitermachen.

Wenn irgend etwas fehlschlägt hilft manchmal auch ein GetLastError:

Code:

procedure DisplayErrorMsg(hWnd: THandle);
var
   szBuffer: array[0..255] of Char;
begin
   FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError(), 0, szBuffer,
     sizeof(szBuffer), nil);
   MessageBox(hWnd, szBuffer, 'Fehler', MB_ICONSTOP);
end;