procedure TForm1.FormCreate(Sender: TObject); begin Session.AddPassWord('Buraya dosyanin sifresini yaziyon); Table1.Acive := True; end;