Что нужно убрать,чтобы код заработал?

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 var s:String; i,j,h:integer ;c:boolean
 begin
 s:=Edit1.Text;
for h:=1 to length(s) do begin
  if (s[h] in [#33,#40,#41,#44,#45,#46,#58,#59]) or (s[h]=' ')
  then delete(s,h,1)
    i:=0;
j:=Length(s)+1;
c:=True;
if (s<>'') then begin
for h:=1 to length(s) do
  s[h]:=upcase(s[h]);
repeat
i:=i+1;
j:=j-1;
if (i>j) then break;
if (s[i]<>s[j]) then c:=False;
until c=False;
  if (c=True) then Label2.Caption:='Текст является палиндромом'
else Label2.Caption:='Текст не является палиндромом';
n:=strtoint(Edit1.Text);//вводим 4х-значное число
if (n div 1000=n mod 10)and(n div 100 mod 10=n div 10 mod 10)then showmessage('palindrom')
else showmessage('ne palindrom');
 
 
end;
 
end.

if (n div 1000=n mod 10)and(n div 100 mod 10=n div 10 mod 10)then showmessage('palindrom')

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.Text);//вводим 4х-значное число
if (n div 1000=n mod 10)and(n div 100 mod 10=n div 10 mod 10)then showmessage('palindrom')
else showmessage('ne palindrom');
end;
 
end.