Fórum como mostrar o resultado da minha pesquisa na stringgrid #227190

procedure TfMain.carregaBanco;
var
  i : integer; //controle de loop
begin
  StringGrid.FixedCols := 0;
  StringGrid.FixedRows := 1;

  StringGrid.ColCount := Query.Fields.Count;
  StringGrid.RowCount := Query.RecordCount + 1;

  for i := 0 to (Query.Fields.Count - 1) do
    StringGrid.Cells[i,0] := Query.Fields.Fields[i].FieldName;

  Query.First;

  while not Query.EOF do
  begin
    for i := 0 to (Query.Fields.Count - 1) do
      StringGrid.Cells[i,Query.RecNo] := Query.FieldByName(Query.Fields.Fields[i].FieldName).AsString;
    Query.Next
  end;
end;