Pues en este caso, yo preferiría hacer una validación previa!
Código:
if Table1Objetivo.value = 0 Then
raise Exception.Create('El campo obj....') {O Un ShowMessage}
...
Vl_Produccion := Trunc((Table1Logrado.value / Table1Objetivo.value) * 100);
Saludos!