нужен хелп по Делфи с разъяснением!!!

[Unknown18]

вот экзамен 14
вообще ничего не понимаю
осилила пару задач да и то гранит просто треснул!!
1. Написать функцию поиска количества компонентов заданного класса (входящий параметр TClass) на форме. Возвращает число компонентов типа Integer.

4. Написать процедуру отображения или скрытия объектов на форме заданного класса. У процедуры реализовать 2 входящих параметра:
 класс объекта (TClass);
 состояние (Boolean).
Процедура должна находить объекты заданного класса и изменять свойство Visible(видимый или нет) на значение входящего параметра.
5. Написать процедуру включения или отключения объектов на форме заданного класса. У процедуры реализовать 2 входящих параметра:
 класс объекта (TClass);
 состояние (Boolean).
Процедура должна находить объекты заданного класса и изменять свойство Enabled(можно изменять или нет)на значение входящего параметра.
6. Написать процедуру перевода объектов на форме в состояние “только чтение” или “чтение/запись”. У процедуры реализовать 2 входящих параметра:
 класс объекта (TClass);
 состояние (Boolean).
Процедура должна находить объекты заданного класса и изменять свойство ReadOnly на значение входящего параметра.

9. Написать функцию, возвращающую имя класса объектов (String), максимальное число которых реализовано на форме. Функция возвращает значение свойства ClassName.
10. Написать функцию, возвращающую максимальное число одинаковых объектов на форме. Функция возвращает значение типа Integer.
11. Написать процедуру создания новой формы и вывода ее модально.

13. Написать процедуру сохранения в текстовом файле имен всех компонентов, использованных на форме. Входящий параметр – путь и имя файла (String).
14. Написать процедуру сохранения в текстовом файле имен компонентов заданного класса, использованных на форме. Входящий параметр – класс компонентов (TClass), путь и имя файла (String).
15. Реализовать приложение, содержащее 3 формы:
 frmMainForm – главная форма приложения;
 WBaseForm – базовая форма;
 frmBaseForm – форма, наследник WBaseForm.
В базовой форме определить процедуру proc1. В форме-наследнике переопределить процедуру proc1 (виртуальная virtual,override,overload). С главной формы реализовать вывод формы-наследника модально (showmodal) по нажатию на кнопку.
16. Реализовать кнопку (TButton) на форме. По нажатию на кнопку создавать кнопку правее нажатой и т.д. В модуле должна быть реализована только одна процедура procedure Button1Click(Sender: TObject)

[Unknown18]

хоть одну какую нить плиззз

[pu4koff]

1.

function TForm1.ComponentCnt(c: TClass): integer;
var
  i: integer;
begin
  Result := 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is c)then inc(Result);
  end;
  Caption := inttostr(result);
end;

4.

procedure TForm1.SetVisible(c: TClass; Vis: boolean);
var
  i: integer;
begin
  for i:= 0 to ControlCount-1 do
  begin
    if (Controls[i] is c)then Controls[i].Visible := Vis;
  end;
end;

16.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not(Sender is TButton))or
     (TButton(Sender).ComponentCount > 0) then exit; //проверяем что ткнули по кнопке и для нее еще не создавали потомков
  with TButton.Create(TButton(Sender)) do
  begin
    Parent := Self;
    Left := TButton(Sender).Left+TButton(Sender).Width;
    Top := TButton(Sender).Top;
    OnClick := Button1Click;
  end;
end;

[pu4koff]

14.

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;

[pu4koff]

11.

procedure TForm1.CreateAndModal;
begin
  TForm.Create(Self).ShowModal;
end;

[Unknown18]

pu4koff
спасибо тебе огромное(я у тебя в долгу)))))))