delphi ооп

[demonara]

пересоздал проект лучше мне от этого не стало стал ругаться на класс tbutton ну вот проект посмотрите

[WhiteSpirit]

Создай заново и замени модуль полностью вот на это:

unit Unit1;

interface

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

type

  Tb = class(TButton)
  private
    procedure Proc;
  end;

  TForm1 = class(TForm)
  private
    but2: Tb;
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
but2:=Tb.Create(Self);
but2.Parent:=Self;
but2.Caption:='1234';
end;

procedure Tb.Proc;
begin
Color:=clRed;
end;

end.

[WhiteSpirit]

В чём твои ошибки:
- не подключен модуль StdCtrls, где описан класс TButton;
- после Tb = class(TButton) не надо ставить точку с запятой;
- после implementation надо написать {$R *.dfm}

[demonara]

спасибо тему можно закрыть