function TForm1.CreateAutorunFile(const App, Icon, DestFile: String): Boolean;
var
  sl: TStringList;
begin
  Result := False;
  sl := TStringList.create;
  try
    sl.add('[autorun]');
    sl.add('OPEN=' + App);
    sl.add('ICON=' + Icon);
    sl.SaveToFile(ChangeFileExt(DestFile, '.inf'));
    Result := True;
  finally
    sl.Free;
  end;
end;