For I:=30 To 255 Do
  Begin
    If S<5 Then
      Begin
        Sor:=Sor+RightStr('000'+IntToStr(i),3) + ' : ' + Chr(i)+' # ';
        Inc(s);
      End
    Else
      Begin
        Sor:=Sor+RightStr('000'+IntToStr(i),3) + ' : ' + Chr(i);
        M1.Lines.Add(Sor);
        Sor:='';
        S:=1;
      End;
  end;

=====================================================================
   
procedure TAbFo.CbEredetiKeyPress(Sender: TObject; var Key: char);
begin
  Edit1.Text:=Cberedeti.Text + ' : ' + IntToStr(Byte(Key));
end;