[fox72]

Люди добрые, уверен что проблема решается в течении минуты, но я никак не могу вкурить что тут не так...
Пытаюсь создать свой класс по руководствам из инета и не удается мне эта штука... Ругается зачем-то. Подскажите, будьте любезны, что ему не нравится?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

//Создаю свой класс
  type
    TDialogs1 = class(tObject)
  private
    mMyProp:integer;
  public
    {constructor Create;
    destructor Destroy; override;}
    property MyProp: integer read mMyProp write mMyProp;
  end;
//

  type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{Constructor TDialogs1.Create;
begin
  inherited;

end;

destructor TDialogs1.Destroy;
begin

  inherited;
end;}

procedure TForm1.Button1Click(Sender: TObject);
  var MyD1:TDialogs1;

begin
  MyD1.Create;
  MyD1.MyProp:=1;
  MyD1.free;
end;

end.

[angvelem]

Не знаю какое руководство использовалось, но похоже никакое.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyD1:TDialogs1;
begin
  MyD1.Create;
  MyD1.MyProp:=1;
  MyD1.free;
end; 

Где написано так делать?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyD1:TDialogs1;
begin
  MyD1 := TDialog1.Create;
  MyD1.MyProp:=1;
  MyD1.free;
end; 

[fox72]

Стыжусь и каюсь.
На ночь глядя голова совсем не работает...
Спасибо большое