[NIch]

1)

Код:

 if Length(Edit1.Text) = 0 then
ShowMessage('В поле ввода нет текста!');

2)

Код:

SpinEdit1.Value := SpinEdit1.MinValue;

Как то так...