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;