[Страдалецъ]

Ну тебе-же написали присвой edit.onMouseDown значение твоего обработчика событий. Вот пример из моей программы:

Код:

  TForm18 = class(TForm)
   ...    
   procedure CardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
   procedure AddCards(Colour: TCardColour; Bitmap: TBitmap; Pos: Integer);
   ...
  end;

...
procedure TForm18.AddCards(Colour: TCardColour; Bitmap: TBitmap; Pos: Integer);
var
  Y,X: Byte;
begin
 for Y := 0 to 2
 do for X := 0 to 4
    do begin
       ...       
       CardPack[High(CardPack)] := TCard.Create(Value,Colour);
       CardPack[High(CardPack)].Picture.Parent := Self;
       ...
       CardPack[High(CardPack)].Picture.OnMouseDown := CardMouseDown;
       CardPack[High(CardPack)].Picture.OnMouseMove := CardMouseMove;
       end;
end;