//舉例:以 TQuery 填 TStringGrid
//For example:    procedure TForm1.Button1Click(Sender: TObject);
var
  i : INTEGER;
begin
  i:=0;
  Query1.Close;
  Query1.DatabaseName:='DBDEMOS';
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM VENDORS');
  Query1.Open; // or Query1.Active:=True;
  StringGrid1.RowCount:=Query1.RecordCount 1;
  StringGrid1.FixedCols:=0;
  StringGrid1.Align:=alClient;
  // 表頭
  WITH StringGrid1 DO
  BEGIN
    Cells[0,i]:=Query1.Fields[0].DisplayLabel;
    Cells[1,i]:=Query1.Fields[1].DisplayLabel;
    Cells[2,i]:=Query1.Fields[2].DisplayLabel;
    Cells[3,i]:=Query1.Fields[3].DisplayLabel;
    Cells[4,i]:=Query1.Fields[4].DisplayLabel;
  END;
  INC(i);      // 資料填入Cells
  WHILE NOT Query1.Eof DO
  BEGIN        WITH StringGrid1 DO
    BEGIN
      Cells[0,i]:=Query1.Fields[0].ASSTRING;
      Cells[1,i]:=Query1.Fields[1].ASSTRING;
      Cells[2,i]:=Query1.Fields[2].ASSTRING;
      Cells[3,i]:=Query1.Fields[3].ASSTRING;
      Cells[4,i]:=Query1.Fields[4].ASSTRING;
    END;        Query1.Next;
    INC(i);
  END;    end;    Do it as best you can.