Nepomôže Ti toto ?procedure TForm1.SpinEdit1Change(Sender: TObject); begin if spinedit1.Text = '' then exit; ... end;