1:

uses ShellAPI;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormCreate(Sender: TObject);
var
  AppBarData: TAppBarData;
begin

  with Self do
  begin
    Width := 100;
    Height := 100;
    Left := Screen.Width - Width;
  end;

  FillChar(AppBarData, SizeOf(TAppBarData), 0);
  AppBarData.cbSize := SizeOf(TAppBarData);
  SHAppBarMessage(ABM_GETTASKBARPOS, AppBarData);
  if AppBarData.uEdge = ABE_BOTTOM then
    with Self do
      Top := Screen.Height - Height - (AppBarData.rc.Bottom - AppBarData.rc.Top);

end;					

1:
2:

  Left := screen.width - Width;
  Top := screen.height - height -77;