Cómo pongo una Progressbar en este codigo:
Código Delphi
[-]procedure TfrmLe_ECF.cxButton1Click(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
CapturaStatus;
AssignFile(arq,ExtractFilePath(Application.ExeName)+'\Teste.TXT');
Rewrite(arq);
Write(arq,guardastatus.Text);
CloseFile(arq);
Screen.Cursor := crDefault;
end;
Esta progress es para muestrar el andamiento del los archivos, o sea, mientras va se grabando en el disco se muestrando el progressbar.