как вернуть всё в первичное состояние

[m1zantrop]

как баттонкликом вернуть всё в своё девственное состояние? т.е как при самом запуске программы. чтобы обнулились все переменные, поочищались эдиты в которые была вписана инфа и т.д?

[Аватар]

Написать процедуру, которая обнулит все переменные, поочищает эдиты в которые была вписана инфа и т.д

[m1zantrop]

познавательно)

[Аватар]

Сообщение от m1zantrop

познавательно)

Еще бы. А чего другого ожидали? Процедуры?

[m1zantrop]

Сообщение от Аватар

Еще бы. А чего другого ожидали? Процедуры?

хотя бы объяснение как это должно выглядеть )

[FaTaL]

Edit1.Clear;
Edit2.Clear;
x := nil;
и т.д.

[m1zantrop]

а процедуру сразу можно обнулить?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
N:=i div 60;
Label1.Caption:='Ó âàñ îñòàëîñü : '+IntToStr(N)+' ìèíóò '+IntToStr(i-N*60)+' ñåêóíä';
ProgressBar1.Position:=i;
if i=0 then
begin
Case min.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
5: i:=1800;
6: i:=2100;
7: i:=2400;
8: i:=2700;
9: i:=3000;
10: i:=3300;
11: i:=3600;
12: i:=3900;
end;
N:=i div 60;
Timer1.Enabled:=false;
Form2.Edit1.Text:=' '+IntToStr(N)+' ìèíóò, îòâåä¸ííûå äëÿ òåñòèðîâàíèÿ èñòåêëè!';
Form2.Edit2.Text:='Êîë-âî ïðàâèëüíûõ îòâåòîâ : '+inttostr(ball);
t:=Form2.ShowModal;
end;
end;

[FaTaL]

Что значит обнулить процедуру?

[m1zantrop]

Сообщение от FaTaL

Что значит обнулить процедуру?

отменить её выполнение. при нажатии баттонклика

[s-andriano]

Сообщение от m1zantrop

отменить её выполнение. при нажатии баттонклика

Если процедура запущена в другом потоке - можно, а если в основном - программа не будет реагировать на клавиши, пока не закончит выполняться процедура.