[serega6531]

Сообщение от Alegun

Так будет логичнее

Код:

procedure IsSetFiles();
var count: integer;
    FilesIsSet: Array[1..14] of boolean;
begin
count:=1;
While (count < 15) do
begin
FilesIsSet[count]:=FileExists(FilesFullPatch[count]);
inc(count);
end;
ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

Спасибо всем. Теперь вопрос номер 3.
Как узнать, есть ли в текстовой строке пробелы? Гугл не помог.