Как "сбросить" программу не закрывая её?

[Janno]

Люди, помогите, пожалуйста! Как, нажав на какую-либо кнопку, "сбросить" всю программу (что-то вроде какого-то reset что ли...), все вычисления, которые она выполняла до нажатия, к начальным параметрам? Мне нужно, к примеру, начать заново выполнять программу, но не хочется её закрывать и запускать заново... как?

[Сильванович Михаил]

Вот так(не считая того, что нужно поместить это прил-е на тоже место на экране):

uses ShellAPI;
 
procedure OnButtonPress(Sneder: TObject);
begin
  ShellExecute(0,'',PCHar(ParamStr(0)),'','',SW_SHOWNORMAL);
  Application.Terminate;
end;

[Janno]

Сообщение от Сильванович Михаил

Вот так(не считая того, что нужно поместить это прил-е на тоже место на экране):

uses ShellAPI;
 
procedure OnButtonPress(Sneder: TObject);
begin
  ShellExecute(0,'',PCHar(ParamStr(0)),'','',SW_SHOWNORMAL);
  Application.Terminate;
end;

Благодарен, спасибо!