Fehler bei in Registry schreiben

[RWarnecke]

Irgendwie sieht das ganze nicht nach einer Konsolenanwendung aus. Bei mir sieht die so aus :

Delphi-Quellcode:

program StringMove;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Forms, Registry;

var
  Reg: TRegistry;

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    Reg.WriteString(Application.Exename, ParamStr(0));
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end.

Probiere es mal so. Nur so runtergetippt.

Edit 1: SysUtils nachgetragen
Edit 2: Windows und Forms nachgetragen.