Hilfe bei Autostart und .Bat Datei

[CreekMary]

Hallo

Ich bin grad dabei mein erstes Programm zu schreiben, darum bitte keine "Fremdwörter"

Also, mein Programm soll sich automatisch in die Registry als Autostart eintragen. Aus einem anderen Thread hier im Forum hab ich diesen Sourcecode für die Registry Eintragung einfach genommen.
Desweitere soll mein Programm nach 60 Minunten den PC automatisch herunterfahren (Gelöst per .BAT datei mit "Shutdown -s") und schließlich soll mein Programm sich auch noch von selbst beenden.

Hier ist erstmal der Source Code meines Programms:

Delphi-Quellcode:

unit MeinProgrammU;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
  var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER; 
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    Reg.WriteString('EigenesProgramm', ParamStr(0));
    Reg.CloseKey;
  finally
    Reg.Free;
    Sleep (3600000);
    WinExec('Shutdown.bat', SW_SHOWNORMAL);
    close;
end;
end;
end.

Nun gibt es folgende Probleme:

1. Das Programm beendent sich nicht.
2. Nach dem Neustart funktioniert meiner ansicht nach alles nur der PC wird nicht herunter gefahren.


Bitte beachten (und genau das finde ich das komische), dass bei ersten mal öffnen, das Programm seine Funktionen alles ausführt, nur beim nächsten mal, wo es über den Autostart gestartet wird funktioniert das herunterfahren nicht mehr =(

Hoffe ihr könnt mir helfen. Vielen Dank