[[ElKurgan]]

Nada más fácil

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := StrToIntDef(Edit1.Text, 0);
  Edit1.Text := IntToSTr(i + 1)
end;

Saludos