아래의 소스가 자꾸 에러가 나는데요!!
고수님들 좀 봐주세요!!


=====================================================================
procedure TIn_EventFrm.SpeedButton14Click(Sender: TObject);
begin
var
   a_pos    : TPoint;
   Rect     : TRect;
   tPatType : string;
   vpt_no, vadmdate, vdschexdt, vprntdate, vprintyn, vprechkyn, vPatType, vNursenm : Variant;
begin

  DateTimePicker1.Date := Strtodate(formatdatetime('yyyy-mm-dd',now));

   Edit5.Text := Label8.Caption;
   Edit6.Text := Edit4.Text;
   Edit7.Clear;
   Edit7.Text := Edit1.Text;
   ComboBox1.ItemIndex := 0 ;
   Memo2.Text := Memo1.Text;

   Panel13.Visible := True;
   Panel14.Visible := True;
   Panel15.Visible := True;
   Panel16.Visible := True;
   Panel17.Visible := True;

   DateTimePicker1.SetFocus;


    a_pos := In_EventDBGrid.ClientOrigin;

   Screen.Cursor := crHourGlass;
   MODEXACS1 := Panel13;
   //Panel13.Visible := True;
   // 위치설정
   Rect := In_EventDBGrid.ClientRect(0,In_EventDBGrid.Row);
   if Screen.Height - (a_pos.y + Rect.Top) < MODEXACS1.Height then
      MODEXACS1.Top := Screen.Height - MODEXACS1.Height - 20
   else
      MODEXACS1.Top := a_pos.y + Rect.Top;

end;
====================================================================