form position at bottom of the screen

uses ....,shellapi;

VAR
  appbardata    : TAppBarData;
  Rect          : TRect;
  taskBarHeight : Integer;
begin
  // Get The Taskbar Height
  FillChar ( AppBarData,SizeOf(AppBarData),0);
  SHAppBarMessage(ABM_GETTASKBARPOS, appbardata);
  Rect := appbardata.rc;
  taskBarHeight := Rect.Bottom - Rect.Top;

  Left := ( Screen.Width - Width ) DIV 2;
  Top  := Screen.Height - Height - Taskbarheight +2;
end;