[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text) + 1);
end;

Queda por ver, de donde cargas el valor inicial, se supone que lo guardas en un fichero texto.

Un Saludo.