Оптимизация кода

[Terran]

Всем привет! Подскажите пожалуйста как можно оптимизировать этот код, что бы он особо не грузил систему и быстро выполнялся? Здесь идёт проверка наличия файла. Если он есть, то идём дальше, а если его нет, то записываем. Когда файлов мало он быстро выполняется, а когда много, то долговато.

Var
Nam: string;
S: integer;
//---------------------------------------------------//
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Nam:='0';
S:=0;
End;
//---------------------------------------------------//
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Repeat
If Fileexists(Nam+'.jpg') Then //проверяю есть ли такой файл
Begin
S:=S+1;
Nam:=IntToStr(S);
End;
Until Not
Fileexists(Nam+'.jpg');
GetPic(100);  //делаю скриншот
Ms.SaveToFile(Nam+'.jpg');
End;

[mihali4]

А при чем тут таймер-то? Вот у вас и идет задержка проверки наличия файлов на интервал таймера...

[Terran]

Скажите ещё пожалуйста, а сама функция Fileexists быстро проверяет наличие файла? К примеру за какое время она сможет проверить 400 файлов? (В выше приведённом коде если убрать таймер)

[DeKot]

А почему не применить штатный подход

AssignFile(f_file,FileName); 
{$I-}  //откл. проверки операционкой
Reset(f_file);  // Дельфи проверяет наличие файла при открытии
{$I+}  // опять вкл. проверку от ОС
if IOResult = 0 then // при = 0 файл есть, любое другое знач.-файла нет

и даллее уже по неоходимости.
Для проверки б'ольшего кол-ва файлов - цикл, FileName привязать к переменной цикла.

[Terran]

А какой из этих вариантов будет наиболее оптимальный? (самое главное что ты не грузил сильно систему)

[DeKot]

Не скажу насчет оптимальности, но можно проверить скорость - запустить проверку десятка файлов (даже пустых) и одновременно в
таймере запустить счетчик.После окончания проверки таймер остановить и посмотреть значение счетчика.Так можно сравнить оба способа.При
штатной проверке ОС отключается, значит и нагрузка на систему не
увеличивается.Все идет в среде Дельфи.

[Terran]

Буду пробовать.
Большое спасибо всем за помощь!!!