Try e except?

coloque:
Begin
try
<comandos a serem executados>
Except // Se acontecer algum erro no comando acima
Showmessage(´Ocorreu um Erro´);
end;
end;


OBS: para testar rode fora do Ambiente Delphi, caso contrario
a mensagem de erro será precedida por uma mensagem do DElphi.

Ou Melhro

[b:4a70270200]Try[/b:4a70270200]
[comandos]
[b:4a70270200]except[/b:4a70270200] [b:4a70270200]on[/b:4a70270200] e:exception [b:4a70270200]do[/b:4a70270200]
ShowMessage(´Erro: ´+e.[b:4a70270200]message[/b:4a70270200])
end;


´E´ vai ser um objeto de excepção. de uma olhada nele. vc pode tirar bons proveitos.

Brother, quase igual os de cima, eu faço assim:

Begin
try
//Comando
except
//Comando de fuga no erro

end;

Apenas para deixas mais explicada:

Try
Except
End;

[b:eb6f104241]try[/b:eb6f104241]
//coloque aqui o código que vai ser protegido.
//os comandos após os comandos que causou o erro não será mais executado.
[b:eb6f104241]Except[/b:eb6f104241]
//coloque aqui o código que você quer que seja executado caso ocorra algum erro.
//aqui dentro você também poderá utilizar o operador [b:eb6f104241]on[/b:eb6f104241] . Que serve como um if , onde você pode fazer um teste de verificação para saber qual o tipo do erro e executar um comando para cada tipo de erro.
[b:eb6f104241]End;[/b:eb6f104241]


exemplo:

[b:eb6f104241]Try[/b:eb6f104241]
Form1.Free;
Form1.Free;
[b:eb6f104241]Exception[/b:eb6f104241]
[b:eb6f104241]on[/b:eb6f104241] EAccessViolation [b:eb6f104241]do[/b:eb6f104241]
[b:eb6f104241]begin[/b:eb6f104241]
Showmessage(´houve um erro´);
[b:eb6f104241]end;[/b:eb6f104241]
[b:eb6f104241]End;[/b:eb6f104241]


Você também pode utilizar o [b:eb6f104241]Finaly [/b:eb6f104241]no lugar do [b:eb6f104241]Except[/b:eb6f104241]. Finaly executa o código dentro dele quer aconteça erro no bloco try ou não.