[Ñuño Martínez]

Y si quieres ahorrarte una variable:

Código Delphi [-]
PROCEDURE TForm2.Button1Click (Sender: TObject);
BEGIN
  Edit1.Text := IntToSTr (StrToIntDef (Edit1.Text, 0) + 1)
END;

Que es básicamente lo mismo, pero es que hoy estoy picajoso.