[Alegun]

Не дружу с консолью, вот вариант для вывода в Memo

Код:

uses
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 Memo1.Clear;
 for i := 0 to 4000 do
  if IntToStr(i) = ReverseString(IntToStr(i)) then
   Memo1.Lines.Add(IntToStr(i));
 Memo1.Lines.Add('');
 Memo1.Lines.Add('Всего палиндромов: ' + IntToStr(Memo1.Lines.Count-1));
end;