//Onshow olayına 
 for i := 0 to self.ComponentCount - 1 do
 begin
  if Components[i]Is TTable then
  begin
   TTable(Components[i]).open;
   TTable(Components[i]).Active := true;
  end;
  if Components[i]Is TQuery then
  begin
    TQuery(Components[i]).open;
    TQuery(Components[i]).Active := true;
  end;
 end;