Програмное назначение обработчиков событий

program HRU;
 
uses
  SysUtils,
  Forms;
 
Var MForm: TForm;
 
begin
    MForm := TMForm.Create(MForm);
    MForm.Width := 600;
    MForm.Height := 400;
    MForm.Close := // Как эту процедуру заменить на свою.
    mForm.Visible := True;
    MFOrmClosed := False;
 
// Тут будет ожидаться пока форма не закроется.
end.

procedure TForm1.CloseHandler(Sender: TObject; var Act: TCloseAction);
begin
  //...
end;
 
procedure TForm1.Proc1;
begin
  OnClose := CloseHandler;
end;

procedure TForm1.ButtonClick(Sender:TObject);
var b:TButton absolute Sender;
begin
 ...
end;

procedure TShow.OnClickImg(Sender: TObject);
  Var BName: String;
  Var Index: Integer;
begin
  BName := (Sender as TImage).Name;
  If Not TryStrToInt(Copy(BName,2,LenGth(bName)-1),Index) Then
    Begin
      AppendLog('Переданный параметр не является числом.');
      Exit;
    End;
  if (Index < Low(ThreadsList)) or (Index > High(ThreadsList)) then
    Begin
      AppendLog('Нет потока с указанныйм индексом.');
      Exit;
    End;
  ThreadsList[Index].Resume;
end;

(Sender as TImage).Name;

 (Sender as TImage).AnyVariable;

TMyObject=class
  anyData:integer;
  otherData:double;
  img:TImage;
end;
 
TMyObjects=class(TObjectlist)
  function ByImage(img:TImage) :TMyObject;
end;
 
...
function TMyObjects.ByImage(img:TImage) :TMyObject;
begin
  for i:=0 to Count-1 do
  begin
    result := items[i] as TMyObject;
    if result.img = img then
      exit;
  end;
  result := nil;
end;

procedure TForm1.ImageClick(Sender:TObject);
var obj:TMyObject;
begin
  obj := myList.ByImage(sender);
  showMessage(inttostr(obj.SomeData));
end;