обработчик события onClose для формы созданной в Run-Time

[tonatas]

у меня в программе создаётся форма в Run-Time. Ноя я никак немогу навесить на эту форму обработчик события onClose. Вот код:
{Принцип работы программы:
Появляется главная форма. Она предлагает выбор режима работы(Обычный текст, Поэтический текст, Web-страница)
Пользователь выбирает. Главная форма становится невидемой. А форма режима создаётся. Если он закрывает форму режима,
то её ячейка освобождается, а главная форма становится видимой.}
unit Unit1;
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;
type
TMainForm = class(TForm)
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
procedure TextFormCloses();
public
{ Public declarations }
end;

var
MainForm: TMainForm;//Главная форма
TextForm:TForm;//Форма для режима "Обычный текст"
PoemForm:TForm;//Форма для режима "Поэтический текст"
WebForm:TForm;//Форма для режима "Web-страница"
implementation

{$R *.dfm}

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:begin
TextForm:=TForm.Create(self);//Создаём форму
TextForm.Name:='TextForm';//Присваивания имени для формы
TextForm.Caption:='Обычный текст';//Присваивание заголовка для формы
TextForm.Top:=150;//Отступ сверху 150 пикселей
TextForm.Left:=150;//Отступ слева 150 пикселей
TextForm.Width:=1024;//Ширина 1024 писеля
TextForm.Height:=768;//Высота 768 пикселей
TextForm.BringToFront;//Выдвинуть на передний план
TextForm.Show;//Показать форму
TextForm.OnClose:=TextFormCloses;//Задаю процедуру, которая обрабатывает закрытие формы
MainForm.Visible:=False;//Делаем главную форму невидимой
end;
end;
end;

procedure TMainForm.TextFormCloses(Sender: TObject);
begin
TextForm.Free;
MainForm.Visible:=True;
end;

end.

А вот ошибка, которую мне выдаёт:
[Error] Unit1.pas(45): Incompatible types: 'Parameter lists differ'
[Error] Unit1.pas(51): Declaration of 'TextFormCloses' differs from previous declaration

[GunSmoker]

Сообщения об ошибках читать не пробовали? Чёрным по белому написано, что не так.

[Ins]

Да и вообще у OnClose формы другой прототип:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

[tonatas]

СПАСИБО