Delphi 7 a Delphi 2007.Errores en la migracion

[Gaby123]

Hola, como estan?
Estoy pasando una aplicacion de delphi 7 a delphi 2007,en una parte creo en ejecucion varios Tbitbtn, pero en delphi 2007 me da error de violacion de acceso al crearlos, y despues de creados, cada vez q paso el mouse por ellos da el mismo error, por lo q no se pueden usar...
Si alguien tiene alguna idea, se lo agradezco..
este es el codigo donde creo los botones

Código Delphi [-]
   for i := 0 to GruposPnl.ControlCount - 1 do
      if GruposPnl.Controls[i] is tbitbtn then
      begin
        (GruposPnl.Controls[i] as tbitbtn).free;
      end;
    j := 0;
    grupos.First;
    while not grupos.Eof do
    begin
      btn[j] := TBitbtn.Create(self);
      Btn[j].Name := 'G' + gruposcodigo.Value;
      btn[j].ParentWindow := GruposPnl.Handle;
      btn[j].Left := 3;
      btn[j].Height := 75;
      btn[j].Width := 105;
      btn[j].top := j * 75 + 1;
      btn[j].caption := Copy(gruposgrupo.Value, 1, 15);
      btn[j].Layout := blGlyphTop;
      btn[j].Style := bsNew;
      btn[j].spacing := -1;
      btn[j].Margin := -1;
      btn[j].hint := gruposgrupo.Asstring ;
      btn[j].showhint := true;
      Btn[j].OnClick := b1000Click;
      try
        btn[j].Glyph.loadfromfile(gruposruta_imagen.asstring);
      except
      end;
      btn[j].Glyph.Height := 32;
      btn[j].Glyph.Width := 32;
      GruposPnl.Height := ((j + 1) * 74) + 9;
      j := j + 1;
      grupos.next;
    end;
    grupos.Close;

grupos es un query, grupospnl es el panel donde pongo los botones
En delphi 7 funciona perfecto...
Gracias

[dec]

Hola,

¿Probaste a poner puntos de ruptura (breakpoints) en el código de modo que puedas seguir su ejecución línea por línea? De ese modo probablemente te acercaras al problema...

[Gaby123]

muchas gracias, eso ya lo habia hecho, pero el error no me da en la creacion, sino al mostrarse en la forma, simplemente cambie de tbitbtn a speedbutton y funciona perfecto,debe ser algun error o deficiencia del bitbtn.