关于AnimateWindow问题

我的登录是有一个动画的效果的
因为分辨率的问题 我现在只有在一个分辨率下才会准确的出现动画位置，其他的分辨率要么高点要么低点

而且Form1.frm.Position:=poScreenCenter属性也是无效的，
AnimateWindow(Handle,1000,AW_CENTER);貌似只会获取最先的left top作为他的起始点...

在onshow里面写

var
  x,y:longint;
begin
  x := GetSystemMetrics(SM_CXSCREEN);
  y := GetSystemMetrics(SM_CYSCREEN);
  frm_Spalsh.Left:=(x-frm_Spalsh.Width) div 2;
  frm_Spalsh.Top:=(y-frm_Spalsh.Height) div 2;
  AnimateWindow(Handle,1000,AW_CENTER);
  frm_spalsh.DoubleBuffered:=True;