как выполнить условия и передать параметры в другую форму ?

[Black_Wolf]

не могу выполнить условия и передать параметры в другую форму ?

  if  (extrav>=0)and(extrav<=12)and(emoY>=0)and(emoY<=12)  then
       rezyltat.Show ;
       mmo_rezyl.lines.add(Quest1.ReadString('Quest62','V1','нету вопроса'));
     
      if  (extrav>=12)and(extrav<25)and(emoY>=0)and(emoY<=12)  then
      mmo_rezyl.lines.add(Quest1.ReadString('Quest61','V1','1'));
    
      if  (extrav>=0)and(extrav<=12)and(emoY>=12)and(emoY<25)  then
          rezyltat.Show ;
       mmo_rezyl.lines.add(Quest1.ReadString('Quest63','V1','1 '));
 
      if  (extrav>=12)and(extrav<25)and(emoY>=12)and(emoY<25)  then
        rezyltat.Show ;
       mmo_rezyl.lines.add(Quest1.ReadString('Quest60','V1',' 1 '));

[phomm]

http://bash.im/quote/410956

http://citforum.ru/howto/smart-questions-ru.shtml

"Телепаты в отпуске" ©

Лично от себя - не стоит заголовок и текст темы делать одним и тем же. (это, кстати, противоречит DRY )