[ApxaHGe1]

Я так обновляюсь и все прекрасно работает

Код:

var
  ver:string;
  restart:TextFile;
  FileStream :TFileStream;
begin
ver:=IdHTTP1.Get('http://******.ru/soft/ver.txt');
if  ver > GetMyVersion then
begin
FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\'+'BC_new.exe', fmCreate);
IdHTTP1.Get('http://********.ru/soft/BC.exe', FileStream);
FileStream.Free;
AssignFile (restart,ExtractFilePath(Application.ExeName)+'\'+'restart.bat');
Rewrite (restart);
WriteLn (Restart,'DEL BC.exe');
WriteLn (Restart,'REN BC_new.exe BC.exe');;
WriteLn (Restart,'BC.exe');
WriteLn (Restart,'for /L %%b in (1,1,500) Do @Echo %%b >Nul');
CloseFile (restart);
ShellExecute(0,'OPEN',PAnsiChar (ExtractFilePath(Application.ExeName)+'\'+'restart.bat'),0,0,0);
ExitProcess(0);
end;