Расположение формы

[krikaved]

Как сделать, чтобы форма появлялась в верхнем правом углу? В ручную если забить left:=858;top:=0, то у кого-то монитор 15 дюймов, у кого-то 17, у кого-то 19!

[856100]

Top:=0;
Left:=Screen.Width-Form1.Width;

[Volt]

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Height:=Form1.Height;
Form2.Width:=Form2.Width;
Form2.Top:=Form1.Top;
Form2.Left:=Form1.Left-Form1.Width;
end;

[krikaved]

Сообщение от Volt

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Height:=Form1.Height;
Form2.Width:=Form2.Width;
Form2.Top:=Form1.Top;
Form2.Left:=Form1.Left-Form1.Width;
end;

У меня разные размеры форм!!!

[Volt]

Form2.Top:=Form1.Top-Form1.Height+Form2.Height;
Form2.Left:=Form1.Left-Form1.Width;

[krikaved]

Form2.Top:=Form1.Height-Height; //  вот правильно
Form2.Left:=Form1.Left-Form1.Width; // между формами есть расстояние, а его не должно быть