насщитывание по нажатии на кнопку

[include]

Подскажите пожалуйста кто знает, как в Делфе можно реализовать такую ситуацию : на форме размещены edit и кнопка button, по нажатию на кнопку число написанное в edit, должно увеличиваться на 1. То есть дожен идти счёт - 1, 2, 3, 4....
Кто хоть примерно знает, подскажите!

[Alex Cones]

On button click:

Inc(X);
Edit1.Text:=StrToInt(X);

[include]

неполучается(

[Neeter]

чего ж там не получается? все получается...

procedure TForm1.Button1Click(Sender: TObject);
var
 x: integer;
begin
 x := StrToInt(edit1.text);
 inc(x);
 edit1.text := IntToStr(x);
end;

[include]

Спасибо огромное.....всё вышло (я integer не туда вбивал)

[DeKot]

Наверное OFFTOP - если ТС по топику #2 не понимает, то код ему только навредит.Надо стараться понять идею (читай : алгоритм), а не добиваться готового решения.

[Ntlegend]

можна се написать одной строкой и без переменных..

procedure TForm1.Button1Click(Sender: TObject);
begin
 Еdit1.text := IntToStr(StrToInt(edit1.text)+1);
end;