Tratamento de ERROS tá DIFICIL

Ola amigo.
Sugiro aque vc use Try Execept.

Try
strtoint(´11 22´); // vai dar erro.
Except
ShowMessage(´numero invalido´)

seguinte cara use o bloco try...except..end; desta maneira

try
// códigos
except
on e: exception do
showmessage(e.message);
end;

até

- Declare um método (procedure) na seção private do form principal conforme abaixo:

private
procedure ManipulaExcecoes(Sender: TObject; E: Exception);
- Vá até a seção implementation e implemente este método, conforme o exemplo:

procedure TForm1.ManipulaExcecoes(Sender: TObject; E: Exception);
begin
MessageDlg(E.Message + #1313 +
´Suporte técnico:´13 +
´tecnobyte@ulbrajp.com.br´,
mtError, [mbOK], 0);
end;

- No evento OnCreate do Form principal escreva o código abaixo:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := ManipulaExcecoes;
end;
=== Para testar ===

- Coloque um Button no form;

- No evento OnClick deste botão coloque o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
StrToInt(´ABCD´); { Isto provoca uma exception }
end;
Observações

Cuidado! Não coloque código que possa gerar exceção na rotina que manipula as exceções, pois se ocorrer uma exceção neste rotina, esta será chamada recursivamente até estourar a pilha.