Не дружу с консолью, вот вариант для вывода в 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;