这段代码是什么意思？self是指什么？(50分)

if CanView then
begin
with fOpdo
begin
if fOp=Nil then
fOp:=TfOp.Create(Self);
CanView :=Self.CanView;
CanModify:=Self.CanModify;
CanNew :=Self.CanNew;
CanDelete:=Self.CanDelete;
CanOk :=Self.CanOk;
CanCancel:=Self.CanCancel;
CanPrint :=Self.CanPrint;
EnterFlag:=i-1;
ShowModal;
Free;
fOp:=Nil;
End
end;

self 指拥有
CanView;
CanModify
CanNew
CanDelete
CanOk
CanCancel
CanPrint
属性的一个对象。

self指TfOp类

Self是指你的这段代码所在的类对象！
假如这段代码是在TForm1的一个事件或方法，而你又创建了Form1作为这个类的实离，
则self=form1;
累死我了！

基础差，我还是没懂，请说的具体些。

self 是指Tfop这个类，并把它的
CanModify
CanNew
CanDelete
CanOk
CanCancel
CanPrint这些属性值付给之前的那个类的对应的属性值。

多人接受答案了。