Codigo Louco. Explicação-

F:=strtofloat(E1.Text);
if (F > 0) then
If ((F <> 0)and(PO <> 0))then
Begin
F:= 1 / F;
PO:= 1 / PO;
PI:= 1 /(PO - F);
E4.Text:=floattostr(PI);
ELSE
Showmessage(´Preencha o campo foco com valor positivo!´);
end;

nestas linhas de codigo. Qual é PAu?
este codigo deveria fazer duas possibilidades.
1 se F for maior 0 faça a conta
2 se f for menor 0 poem uma memsagem dizendo que tem colocar valor
positivo no foco.
Qual seria meu erro?


F, PO PI sao variaveis reais.