Jak narysować ramkę na formie o szerokości i wysokości równej formie dodam, że kod zamieszczony poniżej nie działa prawidłowo.
MainForm.Canvas.Pen.Width := 1;
MainForm.Canvas.Pen.Color := clRed;
MainForm.Canvas.Pen.Style := psDash;
MainForm.Canvas.Rectangle(0, 0, MainForm.Width, MainForm.Height);
MainForm.Canvas.Pen.Width := 1;
MainForm.Canvas.Pen.Color := clRed;
MainForm.Canvas.Pen.Style := psSolid;
GetWindowRect(MainForm.Handle, R);
MainForm.Canvas.Rectangle(0, 0, R.Right, R.Bottom);