[[José Luis Garcí]]

Resuelto, el problema era que declaraba footer, tanto en las variables generales del form y luego lo repetía declarándolo en el OnCreate del Form

Código Delphi [-]
var
  Form1: TForm1;
  footer:tstatusbar;
  fin, Colfin,colini: integer;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var footer:tstatusbar;
  i:integer;
begin

Elimine este último y funciono, ahora me toca pelearme con otras partes del código.