Trabalhando com o objeto Gauge no Delphi!

Vamos a um exemplo simples no delphi com o objeto gauge e timer.

Entre no delphi peça nova aplicação.
Monte o form como na imagem abaixo:

Colocamos no form os objetos:
Gauge e timer.

No Gauge mudamos a propriedade kind = qkpie e escolha uma cor que você goste se quiser.
No exemplo mudamos também a propriedade interval = 100.
Vamos a codificação que será colocada dentro do timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
gauge1.Progress := gauge1.Progress +1;
if gauge1.Progress = gauge1.MaxValue then
begin
timer1.Enabled := false;
messagedlg('Fim da análise',mtinformation,[mbok],0);
end;
end;

Pronto salve tudo e execute a aplicação.