Подскажите код для заполнения stringgrid

procedure TForm1.Button1Click(Sender: TObject);
var key,mess:String;
    a:array of array of Char;
    i,j,k,rw,cl:Integer;
    c:Char;
begin
key:=Edit1.Text;//ключ
mess:=Edit2.Text;//сообщение
cl:=Length(key);//кол. столбцов
rw:=Trunc(length(mess)/cl);
if rw*cl>Length(mess) then inc(rw);
//добавим пробелы в конец строки если нужно
while length(mess)<cl*rw do mess:=mess+' ';
inc(rw);
SetLength(a,rw,cl);
//заполним матрицу
for j:=1 to cl do
a[0,j-1]:=key[j];
k:=0;
for j:=0 to cl-1 do
for i:=1 to rw-1 do
 begin
  inc(k);
  a[i,j]:=mess[k];
 end;
//заполним таблицу 1 по столбцам
with StringGrid1 do
 begin
   fixedcols:=0;
   fixedrows:=0;
   defaultcolwidth:=25;
   colcount:=cl;
   rowcount:=rw;
   for i:=0 to rw-1 do
   for j:=0 to cl-1 do
   Cells[j,i]:=a[i,j];
 end;
//перестановка стобцов
for j:=0 to cl-2 do
for k:=j+1 to cl-1 do
if a[0,j]>a[0,k] then
for i:=0 to rw-1 do
 begin
   c:=a[i,j];
   a[i,j]:=a[i,k];
   a[i,k]:=c;
  end;
//вывод в таблицу 2
with StringGrid2 do
 begin
   fixedcols:=0;
   fixedrows:=0;
   defaultcolwidth:=25;
   colcount:=cl;
   rowcount:=rw;
   for i:=0 to rw-1 do
   for j:=0 to cl-1 do
   Cells[j,i]:=a[i,j];
 end;
end;