求助，菜鸟问题散分啦

请给位高手帮帮忙，我刚学，什么都不懂啊。谢谢！
function DynamicResolution(X, Y: word): BOOL;
var
    lpDevMode: TDeviceMode;//请问TDeviceMode是什么类型？
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);//这一语句怎么理解？
if Result then
    begin
    lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;//dmFields是lpDevMode的什么变量？ 具体什么意思？DM_PELSWIDTH ，DM_PELSHEIGHT是不是系统里的常量，如果是，具体值是什么？如果不是，那又是什么？
    lpDevMode.dmPelsWidth := X;
    lpDevMode.dmPelsHeight := Y;
    Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; 
   end;
end;