С>unit Unit3;

С>interface

С>uses
С> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
С> Dialogs, Grids, StdCtrls, ExtCtrls;

С>type
С> TForm3 = class(TForm)
С>   Memo1: TMemo;
С>   Edit1: TEdit;
С>   Edit2: TEdit;
С>   procedure Edit1Exit(Sender: TObject);
С>   procedure Edit2MouseDown(Sender: TObject; Button: TMouseButton;
С>     Shift: TShiftState; X, Y: Integer);
С>   procedure Edit2MouseUp(Sender: TObject; Button: TMouseButton;
С>     Shift: TShiftState; X, Y: Integer);
С> end;

С>var
С> Form3: TForm3;

С>implementation

С>{$R *.dfm}

С>procedure TForm3.Edit1Exit(Sender: TObject);
С>begin
С>  try
С>     raise exception.create('1');
С>  except
С>     application.HandleException(self);
С>  end;
С>end;

С>procedure TForm3.Edit2MouseDown(Sender: TObject; Button: TMouseButton;
С> Shift: TShiftState; X, Y: Integer);
С>begin
С>  memo1.lines.add('down');
С>end;

С>procedure TForm3.Edit2MouseUp(Sender: TObject; Button: TMouseButton;
С> Shift: TShiftState; X, Y: Integer);
С>begin
С>  memo1.lines.add('up');
С>end;

С>end.
С>