[Black Raider]

не совсем вкурил в код, откуда там посреди var? вот тут:

Код:

Table1.Filtered := True;

end;
 var Pnom:Real; i,j:integer;
begin

не понятное условие

Код:

Pnom:=0;
    if Pnom then begin

Что вы им хотели добиться?

и как вам указали

Код:

if Pnom then 

нельзя.
Например

Код:

if Pnom=0 then

можно, а так как у вас нельзя.
хотя вопрос больше а нафига оно вообще здесь, это условие?