unit MyComponent;

interface

uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Dialogs;

type
    TCreateEvent = procedure of object;
    TExecuteEvent = procedure(Response: String) of object;

    TMyComponent = class(TComponent)
    private
        { Private declarations }
        FLocalIP: String;
        FOnCreate: TCreateEvent;
        FOnExecute: TExecuteEvent;
    protected
        { Protected declarations }
    public
        constructor Create();
        destructor Destroy();
        procedure Start;
        procedure Stop;
    published
        property LocalIP: String read FLocalIP write FLocalIP;
        property onCreate: TCreateEvent read FOnCreate write FOnCreate;
        property onExecute: TExecuteEvent read FOnExecute write FOnExecute;

    end;

procedure Register;

implementation

constructor TMyComponent.Create(AOwner: TComponent);
begin
  if Assigned(FOnCreate) then
    FOnCreate();
end;

destructor TMyComponent.Destroy();
begin
    ShowMessage('destroyed');
end;

procedure TMyComponent.Start();
begin
    if Assigned(FOnExecute) then
        FOnExecute('executed');
end;

procedure TMyComponent.Stop();
begin
    ShowMessage('stopped');
end;

procedure Register;
begin
  RegisterComponents('Samples', [TMyComponent]);
end;

end.