1:
2:
3:
4:
5:
6:

function IsP(X: Integer): Boolean;
    function NP(X:Integer): Integer; Inline; Begin Result := Power(10, Trunc(Log(X))); end;
begin
    If X < 10 Then Exit(-1 < X);
    Result := ((X mod 10) = (X div NP(X))) and IsP((X - (X div NP(X)) * NP(X)) div 10);
end;                    

1:
2:
3:
4:
5:

function IsP(X: Integer): Boolean;
    function NP(X:Integer): Integer; Begin Result := Power(10, Trunc(Log(X))); end;
begin
    Result := IIf(X < 10, -1 < X, ((X mod 10) = (X div NP(X))) and IsP((X - (X div NP(X)) * NP(X)) div 10));
end;                    

1:
2:
3:
4:
5:
6:

procedure TSpiegelzahl.Umdrehen(Alt:String;var Neu:String);
  var K,LA:Integer;
  begin
   Neu:='';LA:=Length(Alt);
   for K:=LA downto 1 do Neu:=Neu+Alt[K];
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TSpiegelzahl.StartClick(Sender: TObject);
  var Zahl,NeueZahl:String;
  begin
   Zahl:=EditZ.Text;Ausgabe.Clear;
   Ausgabe.Lines.Add(Zahl);Umdrehen(Zahl,NeueZahl);
   Abbruch:=False;
   Screen.Cursor:=crHourGlass;
   repeat
    Ausgabe.Lines.Add(NeueZahl);
    LangAdd(Zahl,NeueZahl,Zahl); // Zahl:=Zahl+NeueZahl - numerisch
    Ausgabe.Lines.Add(Zahl+' - '+IntToStr(Length(Zahl)));
    Umdrehen(Zahl,NeueZahl);
    Application.ProcessMessages;
   until (Zahl=NeueZahl) or Abbruch;
   Screen.Cursor:=crDefault;
  end;