我快要急疯了，我想问一下，在窗体运行的时候，怎样自动适应显示器的分辨率？`

我来告诉你吧：
我把代码给你看：
uses  modifyunit,inputunit,searchunit, chaxun;
{$R *.DFM}
Const
    Orignwidth=800;
    Orignheight=600;
procedure Tmainfrm.FormCreate(Sender: TObject);
begin
        n:=0;
        inputcount:=False;
        modifycount:=False;
        searchcount:=False;
        chaxuncount:=False;
        //动画显示窗口
         windows.AnimateWindow(mainfrm.WindowHandle,400,16);
        ////////自适应屏幕分辨率
        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;
        ////////
        StatusBar1.Panels [0].Text :='欢迎您使用本录入系统,祝您今天工作愉快!';
        StatusBar1.Panels[1].Text :=FormatDateTime('yyyy-mm-dd',Date);
        myconn.Connected:=True;
end;