Ascii Tabelle Ausgabe Problem

[rossinie00]

Hallo,
mit dem folgendem Programm soll via FOR-Schleife erst ein Zeichen ausgegeben werden und dann die zugehörige ASCII-Zahl ausgegeben werden.
Warum macht der das ncihts?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,i1: integer;
begin
  ListBox1.Items.clear;
  for i := 1 to 255 do
    begin
      i1 := (000 +i + i1);
      ListBox1.Items.add(chr(i1) + ('  ') + IntToStr(i1));
    end;
end;

Er gibt aber immer die maxint am ende aus.


Wo ist mein fehler?
danke
rossinie00