Erro Delphi Type

Oi pessoal acho que todos aqui que trabalham com Delphi ja passou por este problema, migre meu delphi do xe7 para o xe10.2 deu varios erros porem este nao consegui resolver se alguem puder me da uma ajuda.

Expected an identifier but received TYPE at line
Grato e agradeço.

Poderia postar a linha que está ocorrendo o erro?


uses
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MySQL,
FireDAC.Phys.MySQLDef, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
FireDAC.VCLUI.Wait, ppDB, Vcl.Imaging.pngimage, ppCtrls, DBAccess, MyAccess,
ppBands, ppClass, ppParameter, ppDesignLayer, ppPrnabl, ppCache, ppProd,
ppReport, ppComm, ppRelatv, ppDBPipe, FireDAC.Comp.UI, ppDB, Dialogs,


type
TDM = class(TDataModule)
conexao: TFDConnection;
sql_produtos: TFDQuery;
ds_ListarProdutos: TDataSource;
FDG_cursor: TFDGUIxWaitCursor;
sql_clientes: TFDQuery;
ds_clientes: TDataSource;
FD_clientes: TFDTable;
SQL_carrinho: TFDQuery;
SQL_carrinhocar_id: TFDAutoIncField;
SQL_carrinhocar_produto: TIntegerField;
SQL_carrinhocar_qtd: TIntegerField;
ds_carrinho: TDataSource;
SQL_produtosAdd: TFDQuery;
SQL_carrinhopro_id: TIntegerField;
SQL_carrinhopro_nome: TStringField;
SQL_carrinhopro_barras: TStringField;
SQL_carrinhopro_custo: TFloatField;
SQL_carrinhopro_preço: TFloatField;
SQL_carrinhopro_estoque: TIntegerField;
SQL_carrinhocar_sub: TFloatField;
SQL_ESTOQUE: TFDQuery;
sql_forma: TFDQuery;
sql_formaforma_id: TFDAutoIncField;
sql_formaforma_nome: TStringField;
ds_forma: TDataSource;
TB_pedidos: TFDTable;
TB_pedidosped_id: TFDAutoIncField;
TB_pedidosped_cod_venda: TStringField;
TB_pedidosped_data: TDateField;
TB_pedidosped_cliente: TIntegerField;
TB_pedidosped_vendedor: TIntegerField;
TB_pedidosped_forma: TIntegerField;
TB_pedidosped_valor: TFloatField;
TB_itens: TFDTable;
TB_itensitem_id: TFDAutoIncField;
TB_itensitem_produto: TIntegerField;
TB_itensiten_qtd: TIntegerField;
TB_itensiten_cod_pedido: TStringField;
TB_itensiten_preço: TFloatField;
SQL_vendedor: TFDQuery;
SQL_vendedorvend_id: TFDAutoIncField;
SQL_vendedorvend_nome: TStringField;
SQL_vendedorvend_senha: TStringField;
SQL_vendedorvend_login: TStringField;
SQL_Recibo: TFDQuery;
DS_Recibo: TDataSource;
DBP_Recibo: TppDBPipeline;
RP_recibo: TppReport;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppDBText1: TppDBText;
ppLabel5: TppLabel;
ppDBText2: TppDBText;
ppLabel6: TppLabel;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppLabel7: TppLabel;
ppLabel9: TppLabel;
ppDBText6: TppDBText;
ppSummaryBand1: TppSummaryBand;
ppLine3: TppLine;
ppLabel10: TppLabel;
ppLabel11: TppLabel;
ppDBText7: TppDBText;
ppPageStyle1: TppPageStyle;
ppDesignLayer2: TppDesignLayer;
ppLabel12: TppLabel;
ppDBText8: TppDBText;
ppLabel13: TppLabel;
ppDBText9: TppDBText;
rpb_relatoriovendas: TppReport;
ppParameterList2: TppParameterList;
ppDesignLayers2: TppDesignLayers;
ppDesignLayer3: TppDesignLayer;
ppHeaderBand2: TppHeaderBand;
ppDetailBand2: TppDetailBand;
ppFooterBand2: TppFooterBand;
ppLabel14: TppLabel;
ppGroup1: TppGroup;
ppGroupHeaderBand1: TppGroupHeaderBand;
ppGroupFooterBand1: TppGroupFooterBand;
ppLabel15: TppLabel;
ppDBText10: TppDBText;
ppLabel16: TppLabel;
ppDBText11: TppDBText;
ppLabel17: TppLabel;
ppDBText12: TppDBText;
ppLabel18: TppLabel;
ppDBText13: TppDBText;
ppLabel19: TppLabel;
ppDBText14: TppDBText;
ppDBText15: TppDBText;
ppDBText16: TppDBText;
ppDBText17: TppDBText;
ppLabel20: TppLabel;
ppLabel21: TppLabel;
ppLabel22: TppLabel;
ppLabel23: TppLabel;
ppLabel24: TppLabel;
ppLine5: TppLine;
ppLine7: TppLine;
ppLabel25: TppLabel;
ppLine4: TppLine;
ppLine2: TppLine;
ppLine1: TppLine;
ppDBCalc1: TppDBCalc;
ppLabel8: TppLabel;
ppDBText19: TppDBText;
sql_listarvendedor: TFDQuery;
sql_listarvendedorvend_id: TFDAutoIncField;
sql_listarvendedorvend_nome: TStringField;
sql_listarvendedorvend_senha: TStringField;
sql_listarvendedorvend_login: TStringField;
ds_vendedor: TDataSource;
FD_Etiquetas: TFDTable;
sql_etiquetas: TFDQuery;
FD_Etiquetaseti_id: TFDAutoIncField;
FD_Etiquetaseti_produto: TIntegerField;
sql_etiquetaseti_id: TIntegerField;
sql_etiquetaseti_produto: TIntegerField;
sql_etiquetaspro_id: TIntegerField;
sql_etiquetaspro_nome: TStringField;
sql_etiquetaspro_barras: TStringField;
sql_etiquetaspro_custo: TFloatField;
sql_etiquetaspro_preço: TFloatField;
sql_etiquetaspro_estoque: TIntegerField;
ds_etiquetas: TDataSource;
sql_etiquetasQTD: TLargeintField;
sql_etiquetasProntas: TFDQuery;
ds_etiquetasProntas: TDataSource;
sql_etiquetasProntaseti_id: TFDAutoIncField;
sql_etiquetasProntaseti_produto: TIntegerField;
sql_etiquetasProntaspro_id: TFDAutoIncField;
sql_etiquetasProntaspro_nome: TStringField;
sql_etiquetasProntaspro_barras: TStringField;
sql_etiquetasProntaspro_custo: TFloatField;
sql_etiquetasProntaspro_preço: TFloatField;
sql_etiquetasProntaspro_estoque: TIntegerField;
TB_parcelas: TFDTable;
TB_parcelascarne_id: TFDAutoIncField;
TB_parcelascarne_cod: TStringField;
TB_parcelascarne_cliente: TIntegerField;
TB_parcelascarne_n_parcelas: TIntegerField;
TB_parcelascarne_valor_parcela: TFloatField;
TB_parcelascarne_status: TStringField;
TB_parcelascarne_data_pago: TDateField;
TB_parcelasProntas: TFDTable;
TB_parcelasProntascarne_id: TFDAutoIncField;
TB_parcelasProntascarne_cod: TStringField;
TB_parcelasProntascarne_cliente: TIntegerField;
TB_parcelasProntascarne_n_parcelas: TIntegerField;
TB_parcelasProntascarne_valor_parcela: TFloatField;
TB_parcelasProntascarne_status: TStringField;
TB_parcelasProntascarne_data_pago: TDateField;
sql_prazo: TFDQuery;
sql_prazoped_id: TFDAutoIncField;
sql_prazoped_cod_venda: TStringField;
sql_prazoped_data: TDateField;
sql_prazoped_cliente: TIntegerField;
sql_prazoped_vendedor: TIntegerField;
sql_prazoped_forma: TIntegerField;
sql_prazoped_valor: TFloatField;
sql_prazoped_estoque: TIntegerField;
sql_prazocli_nome: TStringField;
sql_prazocli_fone: TStringField;
sql_prazocli_endereco: TStringField;
sql_prazoforma_id: TFDAutoIncField;
sql_prazoforma_nome: TStringField;
ds_prazo: TDataSource;
ds_parcelas: TDataSource;
TB_parcelascarne_vence: TDateField;
TB_parcelasProntascarne_vence: TDateField;
ppDBText5: TppDBText;
sql_clientescli_id: TIntegerField;
sql_clientescli_nome: TStringField;
sql_clientescli_fone: TStringField;
sql_clientescli_endereco: TStringField;
FD_clientescli_id: TIntegerField;
FD_clientescli_nome: TStringField;
FD_clientescli_fone: TStringField;
FD_clientescli_endereco: TStringField;
conecta: TMyConnection;
sql_prazocli_id: TIntegerField;
mysql_link: TFDPhysMySQLDriverLink;
sql_produtospro_id: TFDAutoIncField;
sql_produtospro_nome: TStringField;
sql_produtospro_barras: TStringField;
sql_produtospro_custo: TFloatField;
sql_produtospro_preço: TFloatField;
sql_produtospro_estoque: TIntegerField;
sql_produtospro_preco_prazo: TFloatField;
sql_produtospro_ref: TStringField;
sql_clientescli_numero: TStringField;