minor fix in tiopf demo 08.

1 files changed, 3 insertions, 0 deletions

diff --git a/extras/tiopf/demos/Demo_08_Collection/frm_main.pas b/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
index 9db19cc1..cb269a6b 100644
--- a/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
+++ b/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
@@ -71,6 +71,7 @@ procedure TMainForm.MainFormShow(Sender: TObject);
 begin
   Log('Creating mediators');
   CreateMediators;
+
   // Drop and re-create to be sure we start with the correct structure
   Log('Testing if table exists');
   if TableExists then
@@ -169,8 +170,10 @@ end;
 
 procedure TMainForm.btnReadClick(Sender: TObject);
 begin
+  FMediator.Active := False;
   FClients.Clear;
   FClients.Read;
+  FMediator.Active := True;
 end;
 
 procedure TMainForm.btnShowClick(Sender: TObject);