- type
- TMyThread = Class(TThread)
- private
- FInterval: Integer;
- FOnDoWat: TNotifyEvent;
- protected
- procedure Execute; override;
- public
- property Interval: Integer read FInterval write Finterval;
- property FOnDoWat: TNotityEvent read FOnDoWat write FOnDoWat;
- end;