如何得到屏幕的分辨率！(50分)

如何得到屏幕的分辨率！
我要根据显示器的当前分辨率，来确定窗体显示的大小，
应该用哪个函数，请各位富翁们指教，在此谢过了！

Screen.Width
Screen.Height

哈哈，我刚做完。
//获取屏幕分辨率
Function TFrm_Login.Get_ScreenVal():String;
var
X,Y :longint;
A,B :string;
begin
x := GetSystemMetrics(SM_CXSCREEN);
Str(X,A);
Y := GetSystemMetrics(SM_CYSCREEN);
Str(Y,B);
Result := A+'*'+B;
end;
//设置屏幕分辨率
function TFrm_Login.SetSize(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;

太是感谢了，小弟的分数有限，请各位包含.

多人接受答案了。