procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Left := screen.WorkAreaWidth - form1.Width;
  form1.Top := screen.WorkAreaHeight - form1.Height;
end;