fword

Ответ от Алексей Р.[гуру]
function tform1.FirstWord(Fword:string):boolean; var cep:string; i:integer; begin i:=1; if length(fword)=3 then if fword=\'001\' then begin result:=true;exit; end else begin result:=false; exit; end; Ваше слово длины больше трёх, поэтому программа доходит до сюда и возвращает false.