Спецы!! Проверьте прогу почему работает неправильно??

[SanSanblch]

Вот прога

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S:string[12];
n,k,r:integer;
i,j :integer;
begin
S:=(Edit1.text);
 for k:=1 to 12 do begin
  val(s[k],n,r); begin
   for i:=0 to 3 do begin
    for j:=0 to 2 do
 stringGrid1.Cells[i,j]:=inttostr(n);
    end;
   end;
   end;
   end;
end.

она работае неправильно, каждый символов из Эдита должен вставятся в StringGring . Причем каждый символол в новую ячейку!
А у меня только последние копируется во все ячейки!!
В чем проблема ??

[Sm1Le]

а размер СтрингГрида или размер входной строки изначально известны ?

[shosse]

procedure TForm1.Button1Click(Sender: TObject);
var i,n,j:Integer;
begin
 j:=1;
 for I := 1 to 3 do
   begin
   for n := 1 to 4 do
     begin
       stringgrid1.Cells[n,i]:=edit1.Text[j];
       j:=j+1;
     end;
   end;
end;

Вот как - то так