[leroisss]

Здравствуйте! Почему возникает ошибка System Error. Code:5, при загрузки компьютера из спящего режима?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
    begin
if (mouse.CursorPos.X> screen.Width-wigth1)then  move:= true else move:= false;
if move then
    begin
if form1.AlphaBlendValue<255 then form1.AlphaBlendValue:=form1.AlphaBlendValue+speed;
    end else
    begin
if form1.AlphaBlendValue>0 then form1.AlphaBlendValue:=form1.AlphaBlendValue-speed;
    end;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
 R: Tregistry;
begin
form1.Left:= screen.Width - wigth1;
r:=tregistry.Create;
r.RootKey:= HKEY_LOCAL_MACHINE;
r.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',true);
r.WriteString('My_ponel',application.ExeName);
r.CloseKey;
r.Free;
  end;

Админ: Пользуемся тегами для оформления кода!