Month: December 2006

RTU, maģistri, sieviešu komanda

            if (Edit1.Text = 'ozols') OR (Edit1.Text = 'logs') OR (Edit1.Text = 'zaicevs')
               OR (Edit1.Text = 'tukins') OR (Edit1.Text = 'petrovs') OR (Edit1.Text = 'sidorovs')
               OR (Edit1.Text = 'ivanovs') OR (Edit1.Text = 'celms') OR (Edit1.Text = 'koks')
               OR (Edit1.Text = 'liepins') OR (Edit1.Text = 'krastins') OR (Edit1.Text = 'pavlovs')
               OR (Edit1.Text = 'rukins') OR (Edit1.Text = 'papovs') OR (Edit1.Text = 'mamovs')
               OR (Edit1.Text = 'durovs')
               then
                    begin
                         lietot := Edit1.Text;
                         if forma = 'Form5'
                            then
                                Form5.Visible := True
                         else if forma = 'Form11'
                            then
                                Form11.Visible := True;
                         Form7.Visible := False;
                    end
            else MessageDlg ('Parole nav pareiza!',mtError,[mbOK],0);