[ChinYan]

А не проще так:

Код:

unit proc;

interface
 function myfunc(i:word):boolean;

implementation

 function myfunc(i:word):boolean;
   var
    e,d,s,t :integer;
   begin
      e:= i mod 10; //Получение единиц
      t:= i div 1000;//Получение тысяч (если нет, то будет равно 0)
      d:=(i mod 100) div 10; //Получение десятков
      s:=(i mod 1000) div 100;//Получение сотен

Result:= (e=3) or (d=3) or (s=3) or (t=3);

   end;

 end.