Problema con Application.ProcessMessages

[cloayza]

Como dice cocute, tambien creo que seria mejor usar un TListBox...

Aqui escribi un pequeno codigo que hace algo parecido...

Muestra un panel mientras el item del TListBox tiene el foco en algun elemento.

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
      panelfoto.caption:=ListBox1.Items[ListBox1.ItemIndex];
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  APoint: TPoint;
  Index: integer;
begin
     APoint.X:=X; APoint.Y:=Y;
     Index:= ListBox1.ItemAtPos(APoint, True);
     If Index>-1 then
     begin
          ListBox1.ItemIndex:=Index;
          ListBox1Click(Sender);
     end;
     panelfoto.visible:=Index>-1;
end;

Solo es otra idea...Saludos