Очистка Cfg

незнаком толком с дельфями, вернее 2й день только на выходных читаю маны
набросал небольшую функцию чистки кфг, мб кому пригодится


Код:

function cleancfg: String;
var
      myFile : File of Word;
      i : Integer;
type
   cfgs = array[1..3] of string;
 const
   CFG : cfgs = ('cstrike/autoexec.cfg','cstrike/language.cfg','cstrike/userconfig.cfg');
begin
for i := 1 to 3 do begin

SetFileAttributes(PChar(CFG[i]), FILE_ATTRIBUTE_NORMAL);
AssignFile(myFile , CFG[i]);
Reset(myFile);
Truncate(myFile);
SetFileAttributes(PChar(CFG[i]), FILE_ATTRIBUTE_READONLY);

 end;
end;