Threads e gauges

Ola amigos.....Tenho uma Thread que faz um while ......e Gostaria de colocar uma gauge para animar um pouco as coisas....mas não estou conseguindo....a thread roda beleza .....mas o gauge não estou conseguindo....

segue um trecho....

procedure TAtualiza.Execute;
begin

 Update;
 Atualiza;
end;

procedure TAtualiza.Update;

 DM.CDS_Update.First;
 While not DM.CDS_Update.Eof do
 Begin
 DM.CDS_Update.Edit;
 DM.CDS_UpdateNOME.Value := DM.CDS_AlteraNOME.Value;
 DM.CDS_UpdateRG.Value := DM.CDS_AlteraRG.Value;
 DM.CDS_UpdateCPF.Value := DM.CDS_AlteraCPF.Value;
 DM.CDS_UpdateCNPJ.Value := DM.CDS_AlteraCNPJ.Value;
 DM.CDS_UpdateNUMERO.Value := DM.CDS_AlteraNUMERO.Value;
 DM.CDS_UpdateENDERECO.Value := DM.CDS_AlteraENDERECO.Value;
 DM.CDS_UpdateCIDADE.Value := DM.CDS_AlteraCIDADE.Value;
 DM.CDS_UpdateBAIRRO.Value := DM.CDS_AlteraBAIRRO.Value;
 DM.CDS_UpdateCOMPLEMENTO.Value := DM.CDS_AlteraCOMPLEMENTO.Value;
 DM.CDS_UpdateUF.Value := DM.CDS_AlteraUF.Value;
 DM.CDS_UpdateTELEFONE.Value := DM.CDS_AlteraTELEFONE.Value;
 DM.CDS_UpdateFAX.Value := DM.CDS_AlteraFAX.Value;
 DM.CDS_UpdateCELULAR.Value := DM.CDS_AlteraCELULAR.Value;
 DM.CDS_UpdateOPERADORA.Value := DM.CDS_AlteraOPERADORA.Value;
 DM.CDS_UpdateCONTATO.Value := DM.CDS_AlteraCONTATO.Value;
 DM.CDS_UpdateEMAIL.Value := DM.CDS_AlteraEMAIL.Value;
 DM.CDS_UpdateCEP.Value := DM.CDS_AlteraCEP.Value;
 DM.CDS_UpdateOPERADORA2.Value := DM.CDS_AlteraOPERADORA2.Value;
 DM.CDS_Update.Post;
 DM.CDS_Update.ApplyUpdates(-1);
 DM.CDS_Update.Next;
 end;
 DM.CDS_Altera.Close;
 DM.CDS_Update.Close;
end;

Obrigado gente.