如何在DELPHI中创建一个类，并引用它，请给出例程。谢谢

Question

unit Unit1;
0A
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  MyClass = class
    I: Integer;
    S: String;
    procedure ShowS();
  end;
  TForm1 = class(TForm)    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }0D
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure MyClass.ShowS();
0Abegin
  ShowMessage(S);
end;procedure TForm1.Button1Click(Sender: TObject);
var OneMyClass: MyClass;
begin
  OneMyClass := MyClass.Create;
  OneMyClass.S := 'lxpbuaa(桂枝香在故国晚秋)';
  OneMyClass.ShowS;
end;end.
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

好想回答，但懒的再把DELPHI打开了，已经下班了，：），20分啊

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TMyClass = class(TObject)
  private
    FTest: string;
    procedure ProcTest;
  public
    property Test: string read FTest write FTest;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FMyObj: TMyClass;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TMyClass }procedure TMyClass.ProcTest;
begin
  if FTest <> '' then
    ShowMessage(FTest);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  FMyObj := TMyClass.Create;
  FMyObj.Test := 'Test!';
  FMyObj.ProcTest;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(FMyObj) then
    FreeAndNil(FMyObj);
end;end.

Answer 3

要学好delphi，还是该看看opto：dageming(执子之手，与子偕老) 
我们的名字好像蛮像的：）