Free Pascal Active Record Implementation