ADOQuery:= TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConnection;
  ADOQuery.SQL.Add('SELECT	COLUMN_NAME, DATA_TYPE,	CHARACTER_OCTET_LENGTH, IS_NULLABLE, ORDINAL_POSITION');
  ADOQuery.SQL.Add('FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = ' + ListBox1.Items[ListBox1.ItemIndex]);
  try
    ADOQuery.Open;
  finally
    ADOQuery.First;
    For I:= 0  to ADOQuery.RecordCount - 1  do begin
        FieldType[I]:= ADOQuery.FieldValues('DATA_TYPE');
      ADOQuery.Next;
    end;
  end;