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

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.