[Ledian_Fdez]

Dos inquitudes

Holas amigos de este foros
Les traigo dos interrogante, les explico:

Tengo en un Tform
- 1 TADOQuery
- 1 TGauge
- 1 TLabel
- 1 TBitBtn

Quiero que a medida que valla recorriendo la tabla, se me valla mostrando en el TLabel el contenido del campo Exp y que me muestre el progreso en el TGauge.

Les muestro el código

Código Delphi [-]
procedure TEstadoForm.BitBtn1Click(Sender: TObject);
var
 Prog : Integer;
begin
    ADOQuery1.Open;
 
{1} Label1.Caption := 'Procesando ...';
{2} Prog := trunc(100 / ADOQuery1.RecordCount);

    ADOQuery1.First;
    While not(ADOQuery1.Eof) do
       begin
        ...
{3}     Label1.Caption := 'Expediente ' + ADOQuery1Exp.AsString;
        Gauge1.Progress := Gauge1.Progress + Prog;
        ...  
        ADOQuery1.Next;
       end;
    Gauge1.Progress := 100;
    Label1.Caption := 'Completado';

end;

Inquietudes

1ro - Al recorrer la tabla no me actualiza el valor del caption del label1, sino que se queda con el que tenía en tiempo de diseño, esto ocurre hasta que no sale del bucle While. (ver en el código {1}, {3})
2do - Cuando el ADOQuery1.RecordCount > 100 la variable prog = 0 y no veo el progreso del Gauge; (ver en el código {2})

Alguien podría ayudarme !!!

Gracias
Saludos Ledian