[lmikle]

Код:

If Not TryStrToInt(Trim(edInput.Text),Y) Then
  Begin
     showMessage('ВВедено не число');
     Exit;
  End;

и так в обоих случаях.

Очистку надо вставить в конец вот этой процедуры: btFirstClick