Problema con codigo

[rufo]

if v_jf=0 then
begin
v_jf:=1;
panel1.Visible:=true;
v_conta:=0;
end
else
begin
v_jf:=0;
panel1.Visible:=false;
end;

la variables de
v_jf:integer
v_conta:integer

la linea de codigo para almacenar ese valor es:

fieldbyname('J_familia').asboolean:=v_jf;

quiero decir que tambien lo he intentado poner correctamente todo pero me sigue marcando error en la programacion primera,espero que esto ayude y gracias