如:
TSelf = class
private
  FPro: string;
public
  property Pro: string write FPro;
  function abc: string;   // 光标在此处 Ctrl + Shift + C 后, 类代码如下
end;
// ----------------------------------
TSelf = class
private
  FPro: string;
public
  property Pro: string write FPro read FPro; // read FPro 自动加上了~
  function abc: string;   
end;