[Max.Gr]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If Form2.Left<Form1.Left then Form2.Left:=Form1.Left;
  If Form2.Top<Form1.Top then Form2.Top:=Form1.Top;
  if Form2.Left+Form2.Width>Form1.Left+Form1.Width then Form2.Left:=Form1.Left;
  if Form2.Left+Form2.Width>Form1.Left+Form1.Width then Form2.Width:=Form1.Width;
  if Form2.Top+Form2.Height>Form1.Top+Form1.Height then Form2.Top:=Form1.Top;
  if Form2.Top+Form2.Height>Form1.Top+Form1.Height then Form2.Height:=Form1.Height;
end;