Button2Click (Sender: TObject); s: string; start then begincombobox1. ItemIndex of
: begin s:= Тест з знання столиць Європи raquo ;; radiogroup1. ItemIndex=2 then score:=score + 5; radiogroup2. ItemIndex=0 then score:=score + 5; radiogroup3. ItemIndex=2 then score:=score + 5; radiogroup4. ItemIndex=1 then score:=score + 5; radiogroup5. ItemIndex=0 then score:=score + 5; radiogroup6. ItemIndex=0 then score:=score + 5 ;;
: begin s:= Тест з знання столиць азії raquo ;; radiogroup7. ItemIndex=1 then score:=score + 5; radiogroup8. ItemIndex=0 then score:=score + 5; radiogroup9. ItemIndex=3 then score:=score + 5; radiogroup10. ItemIndex=2 then score:=score + 5; radiogroup11. ItemIndex=0 then score:=score + 5; radiogroup12. ItemIndex=2 then score:=score + 5 ;;;:=false ;. Lines. add (s) ;:= Ім * я: + edit1. Text ;. lines. add (s) ;:= окуляри: + inttostr (score) + з 30 raquo ;;. lines. add (s) ;:=0 ;. Enabled:=false ;. Text:= Ваше Ім * я raquo ;;. ItemIndex:=- 1 ;. Text:= Віберіть тест raquo ;;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0; else showmessage ( Спочтаку розпочніть тестування (нажміть кнопку Cтарт ) ) ;; TForm1boBox1Change (Sender: TObject); combobox1. ItemIndex of
: begin groupbox1. Enabled:=false; groupbox1. Visible:=true; groupbox2. Enabled:=false; groupbox2. Visible:=false; end;
: begin groupbox2. Enabled:=false; groupbox2. Visible:=true; groupbox1. Enabled:=false; groupbox1. Visible:=true; end ;;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;; TForm1. Edit1Click (Sender: TObject); edit1. Text= Ваше Ім * я then edit1. Text:= raquo ;;; TForm1. FormCreate (Sender: TObject); memo1. Text:= raquo ;;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. ItemIndex:=0 ;. Enabled:=false ;. Enabled:=false ;. Top:=0 ;. left:=0 ;. ClientWidth:=screen. Width - 18 ;. clientheight:=screen. Height - 85 ;:=false ;;.
