Registry 2

Hvorofr siger denne her kode "Failed to get data from "top" og når jeg prøver at remme "top" linien ud kommer samme fejl med "Left" og så videre.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg    : TRegistry;
  KeyGood : Boolean;
  Top, Left, Width, Height    : Integer;
begin
  Reg := TRegistry.Create;
  Try
    KeyGood := Reg.OpenKey('Software/SAMS/Delphi 4 in 21 Days', False);
    If not KeyGood then begin
      Top := Reg.ReadInteger('Top');
      Left := Reg.ReadInteger('Left');
      Width := Reg.ReadInteger('Width');
      Height := Reg.ReadInteger('Height');
      SetBounds(Left, Top, Width, Height);
    end;
  Finally
    Reg.Free;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Reg    : TRegistry;
begin
  Reg := TRegistry.Create;
  Try
    Reg.OpenKey('Software/SAMS/Delphi 4 in 21 Days', False);
    Reg.WriteInteger('Top',Top);
    Reg.WriteInteger('Left',Left);
    Reg.WriteInteger('Width',Width);
    Reg.WriteInteger('Height',Height);
    SetBounds(Left, Top, Width, Height);
  Finally
    Reg.Free;
  end;
end;


end.