Ascii Tabelle Ausgabe Problem

[phXql]

verbessert (korrigiert):

Delphi-Quellcode:

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

nich getestet