Hi,
eigentlich relativ einfach:
Code:
procedure SomeEvent(Sender: TObject);
begin
// Do something.
end;
begin
MyObject.Event := SomeEvent;
end.
Was aber sein kann, ist, dass das nicht immer klappt, weil du die
VCL benötigst und die EIGENTLICH nicht in einem Konsolenprogramm zu finden ist.
Chris