Try
  inttostr(edit1.text)
e...
  showmessage('error')
end;