如何自定义带参数的EVENT，最好有完整例子 (100分)

最近迷上了DELPHI，请各位多指点！

是指INTERBASE吗？
能否说仔细一点[]

procedure mySG1onMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


然后 stringgrid1.onmousedown:=mySG1onMouseDown;

一个例子：
unit Unit1;

interface

uses
Windows, SysUtils, Classes;

type
//定义事件类型
TMyEvent = procedure (op: string; var d: double) of object;

TMyClass = class
private
FMyEvent: TMyEvent;
public
//定义事件
property MyEvent: TMyEvent read FMyEvent write FMyEvent;
procedure Calc;
end;

implementation

procedure TMyClass.Calc;
var
s: string;
d: double;
begin
//....
if Assigned(FMyEvent) then FMyEvent(s, d); //触发事件
//....
end;

end.

楼上写的很好～

多谢各位关照