Помещаем программу в автозагрузку

[sysadmin]

Код: [Выделить]

procedure TForm1.Button2Click(Sender: TObject);
var
 Rg: TRegistry;
 sPath : String[60];
begin
   Rg:=TRegistry.Create;
   GetDir(0,sPath);
 Rg.RootKey:=HKEY_CURRENT_USER;
 Rg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
 if CheckBox1.Checked=true
 then
      Rg.WriteString(AppName, sPath + '\' + AppName + '.exe')
 else

  begin
    if Rg.ValueExists(AppName) then
     Rg.DeleteValue (AppName);
  end;
  Rg.Free;
  inherited;
end;

[proskurin]

Друг я понимаю ты зверьский кодер скорее всего 
но не мог бы ты случаем ли писать хотя бы там где ключевые моменты а по возможности и везде)))) такие простые вещи как {COMMENTS} )))др. словами коментарии буду признателен спасибо!

да кстати выделить код вставить в нужное место не проканало начал ругаться такими фразами как например:
[Error] Unit1.pas(28): Undeclared identifier: 'TRegistry'
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(35): Undeclared identifier: 'CheckBox1'
[Error] Unit1.pas(41): 'THEN' expected but identifier 'ValueExists' found
[Error] Unit1.pas(50): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

и это не все)) пропустил идентичных пару тройку строк

[sysadmin]

Твои ошибки - ты не поместил необходимые компоненты на форму, не указал директиву в разделе uses.
Необходимо:
*поместить в раздел uses - Registry (в Unit1.pas по умолчанию);
*поместить на форму компонент - checkbox;
*вместо AppName напиши имя программы в кавычках - 'MySuperProgram', либо укажи один раз константу, после раздела uses напиши:
const
AppName = 'MySuperProgram';