procedure dataset2stringgrid(sg: tstringgrid; dt: tdataset);
var i,j:integer;
begin
   dt.Open;
   sg.FixedCols:=0;
   sg.FixedRows:=1;       sg.ColCount:=dt.FieldCount;
   sg.RowCount:=dt.RecordCount;       for i:=0 to dt.FieldCount-1 do begin
      sg.Cells[i,0]:=dt.Fields[i].FieldName;
   end;       j:=1;
   dt.First;
   while not dt.Eof do begin
      for i:=0 to dt.FieldCount-1 do begin
        sg.Cells[i,j]:=dt.Fields[i].AsString;
      end;
      inc(j);
      dt.next;
   end;
end;