窗体自适应(200分)

在800*600的屏幕中，窗体大小位置显示正常，而在1024*768下，窗体的大小控件位置
都不正常了，我也试过用以下代码：
Const Orignwidth=800;
Orignheight=600;
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;
//根据屏幕的分辨率自动调整窗体大小
可是还是不行，请大家帮忙看一看，写也具体指令代码，万分感谢！
如何使窗体上的控件随着窗体的改变而相应位置改变，就像速达那样，刚开始窗体比较小，
当调整到最大化进，控件也随之改变，这样看起业很匀称。

Realsoft控件包里有现成的你要的控件。

设每个控件的Anchors属性，最好先放一个PANEL，然后将各控件放在PANEL上。你搜索一下
Anchors怎么设置的一些资料就知道怎么用了，很简单的。
最后提醒一点，窗体的字体要设好，字符集要用Chinese_GB2312

TrsFormGrow做得不错：）