table1.open;
  for i:=0 to table1.Fields.count-1 do begin
    table1.Fields[i].FieldName;
    table1.Fields[i].DataType
    table1.Fields[i].DataSize;
  end;