Реализация алгоритмов шифрования на Delphi / Вижинер / Unit2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;

type
TForm2 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var cod,i,j:integer;
VizTabl: array [0..32,0..32] of byte;
begin
cod:=0;
for i:=0 to 31 do
begin
for j:=0 to 31 do
begin
VizTabl[j,i]:=cod+224;
StringGrid1.Cells[j,i]:=chr(VizTabl[j,i]);
inc(cod);
if cod=32 then cod:=0;
end;
inc(cod);
end;

end;

end.