Вывод в stringgrid в цикле из бд

procedure TForm1.FormCreate(Sender: TObject);
var
   FIniFile:TIniFile;
   d,a_93,a_17,a_16:string;j:integer;
  begin
   FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Config.ini');
   try
    IBDB1.DatabaseName := FIniFile.ReadString('Base','Path','');
   finally
    FIniFile.Free;
   end;
    IBDB1.Connected := true;
 
    begin
       with ASG1 do begin
       FixedCols:=0;FixedRows:=1;
       ColCount:=5;
 
       Cells[0,0]:='Äàòà/Âðåìÿ';
       Cells[1,0]:='Ïàðàìåòð';
       Cells[2,0]:='Ñîîáùåíèå';
       Cells[3,0]:='Ðåêîìåíäàöèè';
       Cells[4,0]:='Èíöèäåíò';
       end;
 
       IBQuery1.SQL.Clear;
       IBQuery1.SQL.Add('select sau_datetime,analog_93,analog_16,analog_17 from sau_data'+
       ' where (loc_num=''60601071'') and (conf_name=''TE116U_062'') and (analog_93=''15'')'+
       ' and (sau_datetime between ''13.12.2012 00.00.00'' and ''13.12.2012 23.59.59'')');
       IBQuery1.Active:=true;
        j:=1;
 
        d:=DateTimeToStr(IBQuery1.FieldByName('sau_datetime').AsDateTime);
        d:=IncSecond (StrToDateTime(IBQuery1.FieldByName('sau_datetime').AsDateTime,30);
      repeat
 
      ASG1.Cells[0,j]:=d;
        a_93:=FloatToStr(IBQuery1.FieldByName('analog_93').AsFloat);
        ASG1.Cells[1,j]:=a_93;
      
      j:=j+1;
     until IBQuery1.Eof;
 
 end;end;
end.