Código Delphi [-]
var List: TStrings; // Es el vector de cadenas
 
var Handle: Cardinal; Index: Integer; FindData: TWin32FindData; // declaracion de variables
begin
 List.Clear;  // Limpio la lista
 Handle := FindFirstFile(PChar(Path + '\*.*'), FindData); // Inicias el listado
 repeat
  if (FindData.cFileName <> '.') and (cFileName <> '..') then // Si el nombre encontrado no es '.' ni '..'
   List.Add(FindData.cFileName);                                         // Lo añado en la lista
 until not FindNextFile(Handle, FindData);        // repito hasta que la API FindNextFile me diga que ya no hay archivos
 FindClose(Handle);  // y cierro la busqueda
end;

Código Delphi [-]
begin
 Handle := FindFirstFile(PChar(Path + '\*.*'), FindData); // Inicias el listado
 repeat
  if (FindData.cFileName <> '.') and (cFileName <> '..') then // Si el nombre encontrado no es '.' ni '..'
   begin
    Index := List.IndexOf(FindData.cFileName);  // a la variable Index le asigno la posicion en mi lista
    if Index <> -1 then // cuando NO es -1, significa que existe en la lista, entonces
     List.Delete(Index)  // lo borro
    else   // caso contrario
     List.Add(FindData.cFileName); // Lo agrego
   end;
 until not FindNextFile(Handle, FindData);
 FindClose(Handle);
end;