procedure TForm1.Connexion1Click(Sender: TObject);
var i:integer;
begin

for i:=0 to DataModule2.ComponentCount-1 do
if DataModule2.Components[i] is tmytable then
(datamodule2.Components[i] as tmytable).open;
if form1.Connexion1.Caption= '&Connexion'  then
  Form26.ShowModal
else if form1.Connexion1.Caption= '&Deconnexion'  then
 if messagedlg('voulez vous deconnectez',mtconfirmation,[mbyes,mbno],0)=mryes
 then
 begin
 form1.MainMenu1.Items[0].Enabled:=false;
    form1.MainMenu1.Items[1].Enabled:=false;
    form1.MainMenu1.Items[2].Enabled:=false;
    form1.MainMenu1.Items[3].Enabled:=false;
     form1.G1.enabled:=false;
    form1.Connexion1.Caption:= 'Connexion' ;
    end;
end;