onmouseout

[int]

so gehts:

type
TYourButton= class(TImage)
protected
procedure WMMouseLeave(var Msg : TWMMouse); message CM_MOUSELEAVE;
end;

und in implementation:

procedure TYourButton.WMMouseLeave(var Msg : TWMMouse);
begin
//dein quelltext
end;