Fórum Como usar Try #248833

try
     Screen.Cursor := crHourGlass;
     // Aqui você coloca seus códigos;
   finally Screen.Cursor := crDefault;
   end;
   // ou seja mesmo se acontecer algum erro ele entra no finally;

   try
     // aqui você coloca seus códigos
    except ShowMessage(´aconteceu erro!´);
    end;
    // se acontecer algum erro ele entra no except;

 ArqIni := TIniFile.Create( ´arq.ini´ )   { Cria Objeto para manipular INI }
 Try
    faz alguma coisa com o ArqIni
 finally
    ArqIni.Free ;
 end ;

 Try
    AInteger := StrToInt( AString )   
 except
    ShowMessage(´ Erro convertendo. ´+AString+´ nao é um numero´)
 end ;