如何在Delphi的advstringgrid里面显示数据库表里的信息

procedure TForm38.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select id, publishDate,memstyle,publisher,titleState,telephone,title,checkbox from guest.WULIU');
ADOQuery1.Open;
for i := 1 to ADOQuery1.RecordCount do
begin
for j := 0 to ADOQuery1.FieldCount - 1 do
begin
AdvStringGrid1.Cells[j+2,i]:=ADOQuery1.Fields.Fields[j].AsString;
//advstringgrid1.HideColumn(1);
end;
ADOQuery1.Next;
end;
end;