窗口在不同系统下的适应问题 (200分)

我设计的窗体在1024*768，大字体下，到了小字体下窗体改变，有什么办法使其适应
不同分辨率和不同字体类型

1、根据新的分辨率重画表单和控件
Const
Orignwidth=800;
Orignheight=600;
procedure TForm1.FormCreate(Sender: TObject);
begin
scaled:=true;
if (screen.width<>orignwidth) then
begin
height:=longint(height)*longint
(screen.height) div orignheight;
width:=longint(width)*longint
(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;
end;

2、更改分辨率为你设计时的分辨率
procedure TForm1.FormCreate(Sender: TObject);
var
devmode:tDevicemode;
begin
if screen.width<>orignwidth then

begin
if EnumDisplaySettings(nil,0,devmode) then

begin
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;
devmode.dmpelswidth:=orignwidth;
{宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0);
{更改设置}
end;
end;
end;

我想更改我的窗体，还有组件，字体等适应问题
有没有好的组件，解决

将窗体的Scaled属性设为false就行了

好像有组件可以解决这种问题.
在哪里忘记了.

编程好复杂，我一般就改分辨率，程序运行时。

改分辨率会被用户骂的，修改和恢复的时候会有个切换过程，很讨厌的

就像网页一样，按目前流行的分辨率编，比如800x600，或者保险一点640x480。如果要
变大小，可以把窗体上每一个控件的大小位置都按比例设好，按照分辨率改变，这是费力
不讨好的工作，我觉得

多人接受答案了。