Es gibt allerdings immer Leute mit mehreren Monitoren
So kommst du an die Auflösungen der einzelnen Monitore:
Delphi-Quellcode:
var
i: Integer;
begin
for i := 0 to Pred(Screen.MonitorCount) do
begin
Screen.Monitors[i].Width;
Screen.Monitors[i].Height;
end;