Pues sí, como comenta Casimiro, si quieres mostrar el progreso de lo andado, debes andar por partes. Al parecer escribes todo el contenido en un sólo paso:
Código Delphi
[-]
Write(Arq, GuardaStatus.Text);
Podrías intentar escribiendo línea a línea:
Código Delphi
[-]
ProgressBar1.Max := GuardaStatus.Lines.Count;
ProgressBar1.Position := 0;
ProgressBar1.Step := 1;
for I := 0 to GuardaStatus.Lines.Count - 1 do
begin
ProgressBar1.StepIt;
WriteLn(Arq, GuardaStatus.Lines[i]);
end;
Claro, suponiendo que GuardaStatus es un Memo a algo similar.
// Saludos