[mak-karpov]

Береш, пишешь

Код:

...
var i : Integer;
begin
for i := 0 to 255 do
Memo1.Lines.Add(IntToStr(i)+': '+chr(i));