Ну или так
program NewProject;
var
okCommand: command;
i:integer;
z:integer;
begin
Z:=0;
repeat
// создаем форму
Okcommand := createcommand('Ok',cm_ok,1);
ShowForm;
addCommand(Okcommand);
i:=FormAddString('Загружено: '+ z +'%'+chr(10));
while (getClickedCommand <> OkCommand) do
delay(100);
z:=z+1;
showform;
delay(1000);
clearForm;
until (getKeyClicked <> KE_NONE);
end.