Dodawanie 1 do zawartości Edit

Jak mam zrobić żeby do Edit 'a dodawało mi 1 po kliknięciu w guzik ?????

Edit.Text := IntToStr(StrToInt(Edit.Text) + 1);

Lepszym rozwiązaniem było by skorzystanie z kontrolki typu TSpinEdit, która posiada właściwość Value typu Integer. Wtedy inkrementacja mogła by wyglądać tak:

Spin.Value := Spin.Value + 1;