Update freebc.pas