Fórum Erro E2003 no Delphi 10.4 #618787

Alguem pode me ajudar estou com um problema no delphi esta retornando o erro [dcc32 Error] UPrincipal.pas(37): E2003 Undeclared identifier: ''Ascendente''

Segue o código

unit UPrincipal;


interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UPadrao, Data.DB, Vcl.Menus,
System.ImageList, Vcl.ImgList, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,
Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.Buttons, Vcl.ToolWin;

type
TFrmPrincipal = class(TFrmPadrao)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }

end;

var
FrmPrincipal: TFrmPrincipal;

implementation

{$R *.dfm}

uses UDm;

procedure TFrmPrincipal.DBGrid1TitleClick(Column: TColumn);
begin
inherited;
Ascendente:= not Ascendente ; // erro aqui nesta linha

If Ascendente then
Dm.tabEntSaid.IndexFieldNames := Column.Fieldname + '' ASC''
else
Dm.tabEntSaid.IndexFieldNames := Column.FieldName + '' DESC'';

End;

procedure TFrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin

Dm.TabEntSaid.close;
end;

procedure TFrmPrincipal.FormShow(Sender: TObject);
begin
inherited;
Dm.TabEntSaid.open;

end;

procedure TFrmPrincipal.SpeedButton3Click(Sender: TObject);
begin
inherited;
Close;
end;

end.