помогите выйти из программы!!!

[Fly090]

Как выйти из программы в кторой есть бесконечный цыкл и чтобы можно было сохранить прогу?

[Stilet]

А сохранить ее до цикла никак? )

[evg_m]

stopflag:=false;
while true do begin
 ...
 stopflag:=.....
 ...........
 if stopflag then begin
   SaveData;
   break;
 end;
.....
end;