procedure TForm1.GetTableStructure;
begin
FDMInfoQuery.Connection := FDConnection1;
FDMInfoQuery.MetaInfoKind := mkTableFields;
FDMInfoQuery.TableName := 'nombre_de_la_tabla';
FDMInfoQuery.Open;
while not FDMInfoQuery.Eof do
begin
ShowMessage('Campo: ' + FDMInfoQuery.FieldByName('COLUMN_NAME').AsString +
' Tipo: ' + FDMInfoQuery.FieldByName('COLUMN_DATATYPE').AsString +
' Tamaño: ' + FDMInfoQuery.FieldByName('COLUMN_LENGTH').AsString);
FDMInfoQuery.Next;
end;
FDMInfoQuery.Close;
end;