TImage vs TControl... ... ImageIndex

[Roll06lm]

Gracias a todos los foristas que vieron mi tema y en especial a xEsk por darme la ruta por donde investigar mi problemática:

El código a continuación era la problematica de un proyecto parado hacia tres dias:

procedure TMainForm.ActClickLefBandExecute(Sender: TObject);
begin
PanelTop.Caption := (Sender as TCategoryButtons).SelectedItem.Caption;
PageControl1.ActivePageIndex := (Sender as TCategoryButtons).SelectedItem.ImageIndex;
//PageControl1.ActivePage.Caption := (Sender as TCategoryButtons).SelectedItem.Caption;
ImageList1.GetIcon((Sender as TCategoryButtons).SelectedItem.ImageIndex, Image1.Picture.Icon);
end;


Cualquier sugerencia, crítica constructiva, ayuda, lo agradecería. Dicen que el mundo de Delphi se está desplomando, sería triste perder una herramienta tan poderosa como esta.

Tengo pocas horas de vuelo en este lenguaje pero comparado con otros, hay que quitarse el sombrero.

VIVA DELPHI