Array de dimensiones

[JLMN22]

Estoy viendo los vectores en delphi, y tengo problemas con los de 2 dimensiones.

El ejercicio es que tengo que poner en un cuadro de 3 por 4 con un array de 2 dimensiones los ingresos de 4 sucursales durante 3 meses.

Despues de eso, tengo que hacer la suma por sucursal y por meses.

Me he quedado en el de insertar, he visto el codigo una y otra vez y sigo sin encontrar el fallo.

os dejo el codigo:

Código Delphi [-]
var
  Form1: TForm1;
  datos: array[1..3,1..4] of integer;
  ren:integer=1;
  col:integer=1;

implementation 
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.InsertarClick(Sender: TObject);
var 
  temp:string;
begin
  datos[ren,col]:= strtoint(edit1.Text);
  col:= col+1;
  edit1.Text:= ' ';
  temp:= temp+inttostr(datos[ren,col]);
  listbox1.Items.Add(temp);
  if (col=5) then   
  begin
    ren:=ren+1; 
    col:=1;
  end;
  if (ren=4) then 
  begin
    showmessage('Lista llena');
  end;
  edit1.Visible:=false;
end;

end.