procedure TForm1.FormCreate(Sender: TObject);beginTop := Screen.WorkAreaHeight - Height;Left := Screen.WorkAreaWidth - Width;end;
