Раскрутки, бусты, мониторинги...

//Проверка файла на автоконнект config.cfg
begin
try
List:=TStringList.Create;
List.LoadFromFile(ExtractFilePath(FileName) + 'cstrike\config.cfg');
except
ShowMessage('Какая-то ошибка :)!');
end;
for i:=List.Count-1 downto 0 do
begin
if Pos('connect', List.Strings[i])<>0 then List.Delete(i);
end;
List.SaveToFile(ExtractFilePath(FileName) + 'cstrike\config.cfg');
List.Free;
end;

//Проверка файла на автоконнект userconfig.cfg
AssignFile(myFile,ExtractFilePath(FileName) + 'cstrike\userconfig.cfg');
{$I-}
Reset(myFile);
if(IOResult <> 0) then // если файла нет, или есть ошибка, то создаю новый фал:
ReWrite(myFile);
{$I+}

CloseFile(myFile);

begin
try
List:=TStringList.Create;
List.LoadFromFile(ExtractFilePath(FileName) + 'cstrike\userconfig.cfg');
except
ShowMessage('Какая-то ошибка :)!');
end;
for i:=List.Count-1 downto 0 do
begin
if Pos('connect', List.Strings[i])<>0 then List.Delete(i);
end;
List.SaveToFile(ExtractFilePath(FileName) + 'cstrike\userconfig.cfg');
List.Free;
end;