TEvent = procedure of Object;

  tLeseThread = class(TThread)
    private
      fReadData : TEvent;
      fWriteData : TEvent;
      fDeleteData : TEvent;
    public
      procedure Execute; override;
      property ReadData : TEvent read fReadData write fReadData;
      property WriteData : TEvent read fWriteData write fWriteData;
      property DeleteData : TEvent read fDeleteData write fDeleteData;
  end;
...

procedure tLeseThread.Execute;
begin
 while NOT(Terminated) do
   Begin
     if Not(Terminated) then if Assigned(fWriteData) then fWriteData;
     if Not(Terminated) then if Assigned(fReadData) then (fReadData);
     if Not(Terminated) then if Assigned(fDeleteData) then fDeleteData;
   End;
end;