1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮，一个Edit1编辑框。
2、在Unit1.pas源代码文件的interface部分定义一个类，代码如下：
TMyClass = Class
private
FName:string;
FScore:string;
procedure SetName(name:string);
procedure SetScore(score:string);
published
property Name: string read FName write SetName;
property Score: string read FScore write SetScore;
end;
定义了两个变量，两个方法，两个属性，读的时候，直接读字段，写的时候通过方法写入
3、在属性上按CTRL+Shift+C会生成对应的方法，在SetName和SetScore分别写如下代码：
procedure TMyClass.SetName(name: string);
begin
Fname :=name;
end;
procedure TMyClass.SetScore(score: string);
begin
if strtoint(score)>100 then
Showmessage('成绩太大')
else
FScore:=score;
end;
当Edit1输入的值超过100认为是非法的，不进行写入FScore字段。
4、双击Button1进入事件方法，写如下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
myClass:TMyClass;
begin
myClass := TMyClass.Create;
myClass.Name:='张三';
myClass.Score:=Edit1.Text;
ShowMessage(myClass.Name+'成绩是'+myClass.Score)
end;
实例化myClass变量，并通过属性Name和Score写入值，最后再以对话框显示出来。
5、F9运行程序，在Edit1输入小于100的数字20会弹出对话框，显示' 张三的成绩是20'
6、F9运行程序，在Edit1输入大于100的数字200会弹出对话框，显示'成绩太大'
