Komponente geht nicht

[I.A.]

Hallo, das ist meine erste Komponente, eine shutdown Komponente bloss lässt sie sich nicht Compilieren.
Wenn ihr mal den Quelltext durchlesen und mir sagen könnten was ich falsch gemacht habe wäre das hilfreich.

Delphi-Quellcode:

unit shutdown;

interface

uses
  SysUtils, Classes;

type
  Tshutdown = class(TComponent)
  private
    { Private-Deklarationen }
    out: Boolean;
    down: Boolean;
    re: Boolean;
    remote: Boolean;
    kill: Boolean;
    ip: Integer;

  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    function shutdown: Boolean;
    function logout: Boolean;
    function restart: Boolean;
    function remote_shutdown: Boolean;
    function killtask : Boolean;

  published
    { Published-Deklarationen }
    property shutdown_ : Boolean Read down write down;
    property restart_ : Boolean Read re write re;
    property logout_ : Boolean Read out write out;
    property remote_shutdown_ : Boolean Read remote write remote;
    property remote_shutdown_ip : Integer Read IP write IP;
    property killtask_ : Boolean Read kill write kill;
  end;

procedure Register;

implementation

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

function Tshutdown.shutdown:Boolean;
begin
  if  shutdown_= true then
  begin
  ('cmd "shutdown -s -t 00"');
  end
  else
  shutdown_ := false;
end;

function Tshutdown.logout:Boolean;
begin
  if  logout_= true then
  begin
  ('cmd "shutdown -l"');
  end
  else
  logout_ := false;
end;

function Tshutdown.restart:Boolean;
begin
  if  restart_= true then
  begin
  ('cmd "shutdown -r"');
  end
  else
  restart_ := false;
end;

function Tshutdown.remote_shutdown:Boolean;
begin
  if  remote_shutdown_= true then
  begin
  ('cmd "shutdown -m \\(+remote_shutdown_ip) -s"');
  end
  else
  remote_shutdown_ := false;
end;

function Tshutdown.killtask:Boolean;
begin
  if  killtask_= true then
  begin
  ('cmd "shutdown -f"');
  end
  else
  killtask_ := false;

end;

end.