prüfen ob Formular verdeckt ist

[Sko]

Ich hab mal WindowFromPoint probiert, aber funktioniert es nicht, es wird immer false zurückgegeben. Ich hab dafür eine Funktion gebastelt:

Delphi-Quellcode:

function TMainForm.IsOnTop: boolean;
var
  p1: TPoint;
begin
  result := false;
  p1.X := MainForm.Left + round((MainForm.Width/2));
  p1.Y := MainForm.Top + round((MainForm.Height/2));
  if WindowFromPoint(p1) = MainForm.Handle then result := true;
end;

Ich hab es auch mit der linken oberen und rechten unteren Ecke probiert, das ging aber auch nicht. Was ist daran falsch?