مشکل در dbgrid

با سلام
از تمامی دوستان به خاطر پاسخگویی و توجه متشکرم.
با تشکر

با سلام
دوستان گفتم تایپیک نزنم سایت شلوغ شه
سوالم رو اینجا میپرسم مشکل من اینه که وقتی روی نوار اسکرول scroll در dbgrid ام کلیک میکنم خطا میگیره که ازش عکس گرفتم اگه میشه راهنمایی کنید
[HTML]
http://www.justupit.com/get.php?id=d106b47e8b64db8ab48746efaa7149d6
[/HTML]

سلام. سایتی که فایل رو در اون آپلود کردید قابل اطمینان نیست:

نقل قول:

---

کد:

---

www.justupit.com

---

has been reported as an attack site and has been blocked based on your security preferences.

---

لطفا متن پیغام خطا و کدهایی که احتمالا در رویداد های dbgrid نوشتید رو قرار بدیدو یا فایل رو در جایی مثل [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] قرار بدید

با سلام به دوستان
متن خطا اینه
arguments are of the worong type,are out of acceptable range/ or are in conflict with one another
و کدها که در قسمت on cellclick اینه

کد:

---

edit1.text :=data.s_vekalat.fieldbyname('code_m').value;
edit2.text :=data.s_vekalat.fieldbyname('safe').value;
edit3.text :=data.s_vekalat.fieldbyname('jeld').value;
edit4.text :=data.s_vekalat.fieldbyname('shomare').value;
edit5.text :=data.s_vekalat.fieldbyname('shomare_ab').value;
edit6.text :=data.s_vekalat.fieldbyname('hoze').value;
edit7.text :=data.s_vekalat.fieldbyname('h_sabt').value;
edit8.text :=data.s_vekalat.fieldbyname('h_tahrir').value;
edit9.text :=data.s_vekalat.fieldbyname('b_oragh').value;
edit10.text :=data.s_vekalat.fieldbyname('b').value;
edit11.text :=data.s_vekalat.fieldbyname('kol').value;
edit12.text :=data.s_vekalat.fieldbyname('noe_s').value;
edit13.text :=data.s_vekalat.fieldbyname('shomare_a').value;
edit14.text :=data.s_vekalat.fieldbyname('hoze_a').value;
memo1.Lines.Text :=data.s_vekalat.fieldbyname('moakel').value;
memo2.Lines.Text:=data.s_vekalat.fieldbyname('vakil').value;
memo3.Lines.Text:=data.s_vekalat.fieldbyname('m_v').value;
memo4.Lines.Text:=data.s_vekalat.fieldbyname('ekhtiarat').value;
maskedit1.text :=data.s_vekalat.fieldbyname('tarikh').value;
edit15.text :=data.s_vekalat.fieldbyname('tarikh_a').value;
edit16.text :=data.s_vekalat.fieldbyname('code_s').value;

---

و در قسمت on DrawColumnCell اینه

کد:

---

var
  test1: Real;
  RowNo: Integer;
  farbe:TColor;
begin
 Try
  with (Sender as TDBGrid) do
  begin
    if (gdSelected in State) then
    begin
      Canvas.Brush.Color :=clActiveBorder;
      end
    else
    begin
      rowno :=  (Sender as TDBGrid).DataSource.DataSet.RecNo;
      test1 := (RowNo / 2) - trunc(RowNo / 2);
      if test1 = 0 then
      begin
        farbe := clWhite;
      end
      else
      begin
        farbe := clWhite;
      end;
      Canvas.Brush.Color := farbe;
      Canvas.Font.Color := clBlack;
    end;
    Canvas.FillRect(Rect);
    if Column.FieldName<>'' then
      Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.DisplayText);
  end
 Except
 End;

---

که برای تغییر رنگ رکورد انتخاب شده
ممنون میشم کمک کنید بازم مرسی داش فرهاد

از اونجا که از نوع داده ای آرگومان ها و محدوده ی قابل قبول یا تداخل با یک آرگومان دیگه ایراد میگیره، باید برنامه رو در این قسمت از کد ها trace کنید. مکان نما رو در قسمت edit1.text :=data.s_vekalat.fieldbyname('code_m').value قرار بدید و f5 رو بزنید، بعد برنامه رو اجرا کنید و به این قسمت از کد که رسید با F8 برنامه رو اجرا کنید تا متوجه بشید مشکل از کجاست
موفق باشید