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

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,x:integer;
begin

for a := 1 to 99 do begin
 for b := a to 99 do begin
 x:=a*b;
 s:=InttoStr(x);
 if s=reverse(s) then  Listbox2.Items.Add(s) ;
 Listbox1.Items.Add(s);
end;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function Palindrom(s : string) : boolean;
var
  Erg : boolean;
  i, l : integer;
  c1, c2 : char;
begin
  Erg := TRUE;                     // Annahme wahr, weil die AND-Abfrage erfolgt
  s := Trim(AnsiUppercase(s));     // Auch bei Texten anwendbar, Leerzeichen vorher und hinterher löschen.
  l := Length(s);
  if l>1 then                      // einbuchstabige Texte sofort als wahr ausgeben, ansonsten Schleife durchlaufen 
  begin 
    for i := 1 to l div 2 do
    begin
      c1 := s[i];
      c2 := s[l-i+1];
      Erg := Erg and (c1=c2); 
    end;
  end;
  Result := Erg;
end;

// Deine IF-Abfrage wäre dann:

:
   if Palindrom(s) then Listbox2.Add(s);
:					

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

function IsPalindrom(const Value: string): Boolean;
var
  LeftPos, RightPos: PChar;
  UpperCaseValue: string;
begin
  Result := True;
  if Length(Value) > 1 then
  begin
    UpperCaseValue := AnsiUpperCase(Value);
    LeftPos := @UpperCaseValue[1];
    RightPos := @UpperCaseValue[Length(UpperCaseValue)];
    while LeftPos < RightPos do
    begin
      Result := Result and (LeftPos^ = RightPos^);
      Inc(LeftPos);
      Dec(RightPos);
    end;
  end;
end;					

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

function reverse (Text:String):String;
var
z : integer;

begin
 for z:=length(Text) downto 1 do result:=result+Text[z];
end;					

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

function reverse (Text:String):String;
var z : integer;
begin
 result := '';
 for z:=length(Text) downto 1 do result:=result+Text[z];
end;