Написать процедуру сохранения в текстовом файле имен компонентов заданного класса, использованных на форме. Входящий параметр – класс компонентов (TClass), путь и имя файла (String) -Delphi(Делфи)

procedure TForm1.SaveToFile(c: TClass; FileName: string);
var
  f: textfile;
  i: integer;
begin
  assignFile(f, FileName);
  Rewrite(f);

  for i := 0 to ComponentCount - 1 do
    if (Components[i] is c) then
      WriteLn(f, Components[i].Name);

  CloseFile(f);
end;