prüfen ob Formular verdeckt ist

[SirThornberry]

Du hast bestimmt den XP-Style im Windows aktiv. Wenn das Form keine Ecken hat sondern abgerundet ist, ist logischer weise an der oberen linken ecke bie 0, 0 nix sondern der untergrund kommt durch.
Mit
if WindowFromPoint(Point(Left + 10, Top + 10)) = Self.Handle then klappts bei dem eingeschalteten Style. Wenn ein anderer Style mehr als 10 Pixel verschenkt gehts natürlich nicht. Du müsstest also möglichst im Clientbereich testen.

so gehts also:
if WindowFromPoint(Self.ClientOrigin) = Self.Handle then