private

private  { Private declarations }public       function divisor(x,y:integer):integer;{声明为类的一个函数，在（1）处用类的对象来调用实现；}end;{ function divisor(x,y:integer):integer; 如果在此声明函数，应该在(2）处这样来实现；}implementationfunction TForm1.divisor(x,y:integer):integer;        //（1）处；{function divisor(x,y:integer):integer;      （2）处；}