procedure TForm1.FileOld(const dir: string); не работает - Delphi

[oleh1818]

procedure TForm1.FileOld(const dir: string);
var
f: TSearchRec;
nameFile: string;
dtfile: Tdate;
mas: array [0..100] of string;
q : integer;
C :TStringList;
begin
if findFirst(dir + '\*', faAnyFile, f) = 0 then
repeat
C.Create;
nameFile := f.Name;
if (nameFile = '.') or (nameFile = '..') then continue;
if f.Attr = faDirectory then FileOld(dir + '\' + nameFile);
if nameFile = '1.txt' then begin
ShowMessage('Файл знайдено');
C.Add(nameFile);
end;
if nameFile = '2.txt' then begin
ShowMessage('Файл знайдено');
C.Add(nameFile);
end;
if nameFile = '3.txt' then begin
ShowMessage('Файл знайдено');
C.Add(nameFile);
end;
until findNext(f) <> 0;
findClose(f);
end;

end.
Може хтось пидказать чого ошибка вылитає пры роботи , проблема выявляэться пры пидключени C :TStringList;

[Vyacheslav.]

А вы разделом не ошиблись)? Это же Делфи?

[Serge_Bliznykov]

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

C.Create;

это бред.
для вызова конструктора нужно написать так:

C := TStringList.Create;

и вынести ДО цикла.
сделать это нужно один раз.
а в конце процедуры нужно очистить память, занятую C
только непонятно, зачем он Вам в данном случае вообще нужен.
Ведь это локальная переменная и за пределами процедуры она не будет видна.
Вы для чего эту переменную пытались использовать?