program Project1;
uses SysUtils, IniFiles, Forms;
var
  win:Tinifile;
  warn:string;
begin
  win:=Tinifile.create('win.ini');
  win.ReadString('windows', 'run', warn);
  if warn <> Application.ExeName then
  win.WriteString('windows', 'run', Application.ExeName);
  win.free;
end.