procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
i,row:integer;
begin
Table1.OPEN;
Table1.First;
row := 0;
StringGrid1.RowCount:=Table1.RecordCount;
while not Table1.EOF do
begin
for i := 0 to Table1.FieldCount-1 do
StringGrid1.Cells[i,row] := Table1.Fields[i].AsString;
Inc (row);
Table1.Next;
end;
end;