transferir archivo zip a un servidor web

[maycampana]

Gracias newtron y delfino por sus apotes, les comento que al final funciona con este simple código
begin
progressbar1.Position := 0;
While progressbar1.Position < progressbar1.Max do
progressbar1.StepIt;
end;
pero por supuesto, no anda del todo bien, el inconveniente es que corre más rápido que un bombero. Debería cambiarle el valor a la propiedad Step o con que la apaciguo? En Step tengo 1, Max 10000 y Min 0. Gracias amigos.