procedure Tfrm0708.SetData ( szRealcode : String ;
                             szName2 : String;
                             szRealName : String );
var
  I : integer;
  Data : String;
  GridData : String;
begin

     Data := autosell.GetFieldData( 'OutBlock', szName2 )
    For I := 0 to autosellGrid.RowCount-2   do
    begin
      GridData :=  autosellGrid.Cells[2,I+1];
      if  GridData = szRealcode then

      autosellGrid.Cells[3,I+1] := Data;

      End;
end


procedure Tfrm0708.autosellQReceiveData(ASender: TObject;
  const szTrCode: WideString);


var
//Data : WideString;
Data2 : WideString; /
I : Integer;
nCount : Integer;
begin

   nCount :=autosellQ.GetBlockCount('t8407OutBlock1');
   For I := 0 to   nCount  do
   begin


      data2 := autosellQ.GetFieldData('OutBlock1','shcode',I);
      SetData ( data2 ,'price' , szTrCode );     
        ====================> setdata 함수 호출하고 setdata에 있는 for문 다  돌고나서  access viloataion이 생기네요
           setdata에 값들은 잘 들어가는 것 같구요... 에러 메시지 첨부합니다..

   End;

고수님들 체크좀 해주시면 감사하겠습니다.