Exibir estrutura de banco de dados do Delphi (rad studio)

 while **not** FData.FDQuery1.Eof do **begin**
    ShowMessage(FData.FDQuery1.Fields[0].ToString);
    **FData.FDQuery1.Next;**
 end;

1. 
   Em um novo projeto Delphi, coloque um TFDConnection, TFDQuery, TDataSource, TDataSource e um TListBox em um formulário. Salve o formulário e o projeto.
   
2. 
   Clique duas vezes em FDConnection1 para abrir seu editor de conexão e configurá-lo para que você possa conectá-lo com sucesso ao seu banco de dados.
   
3. 
   Conecte DBGrid1 a DataSource1 e Datasource1 a FDQuery1.
   
4. 
   Adicione o código abaixo ao evento OnCreate do formulário.
   
5. 
   Compile e execute.
   
6. 
   Você deve ver imediatamente a causa do seu problema. Como a mensagem de erro lhe disse, não há nenhum campo strDBName na tabela INFORMATION_SCHEMA.TABLES.
   

  FDQuery1.SQL.Text := 'SELECT * FROM INFORMATION_SCHEMA.TABLES';
  FDQuery1.Open;
  FDQuery1.GetFieldNames(ListBox1.Items);

  FDQuery2.SQL.Text := 'select * from information_schema.columns where table_schema = ''MATestDB''';
  FDQuery2.Open;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDQuery1.SQL.Text := 'SELECT * FROM INFORMATION_SCHEMA.TABLES';

  FDQuery2.SQL.Text := 'select table_schema, table_name, column_name, data_type, character_maximum_length, ordinal_position from information_schema.columns where table_schema = :Table_Schema and table_name = :Table_Name';
  FDQuery2.IndexFieldNames := 'table_schema;table_name;ordinal_position';
  FDQuery2.MasterFields := 'table_schema;table_name';
  FDQuery2.MasterSource := DataSource1;

  FDQuery1.Open;
  FDQuery1.GetFieldNames(ListBox1.Items);

  FDQuery2.Open;
  FDQuery2.GetFieldNames(ListBox2.Items);

end;