unit MyComponent;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
{ TMyComponent }
TMyComponent = class(TComponent)
private
FData: Integer;
public
constructor Create(AOwner: TComponent); override;
function GetData: Integer;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Standard',[TMyComponent]);
end;
{ TMyComponent }
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FData := 123;
end;
function TMyComponent.GetData: Integer;
begin
Result := FData;
end;
end.