manejo de excepciones en lazarus

[krlosrp]

Yo haría algo como:

Código Delphi [-]
if(FileExists(DirecOrigen.Text+'\profesional.dbf'))then 
begin
   dbf2.FilePathFull:= DirecOrigen.Text;   
   dbf2.TableLevel:=7;   
   dbf2.TableName:= 'profesional.dbf';   
   dbf2.Active:= true; 
end else 
  MessageBox('¡Vefique la ruta del archivo!');

Así evitas provocar errores sobretodo en lazarus porque a veces algunas cosas no funcionan como uno estaba acostumbrado en delphi, debe ser por que todavía está en versión beta.