[vetalgov]

Помогите написать код для проги(Тест). Что бы по кнопке менялись и фотка и вопрос и задание.
я уже немного набросал код, только выдало ошибку...

Код:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Jpeg, ExtCtrls;

type
  TForm5 = class(TForm)
    Image1: TImage;
    StaticText1: TStaticText;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  n:integer;
  answers:array[0..8]of boolean;
implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
  count,i:integer;
begin
  if radiogroup1.ItemIndex=1 then    
    answers[1]:=true
  else
    answers[1]:=false;
  count:=0;
  for i:=0 to 5 do
    if answers[i] then
      inc(count);

  showmessage('Вы ответили верно на '+inttostr(count)+' из 6ти вопросов');
// смена картинок по кнопке
inc(n)
Image1.Picture.LoadFromFile(IntToStr(n)+'.jpg');    // вот сдесь у меня 
 первая ошибка
if n=1 then statictext1.caption:='Обласний ...';
if n=2 tnen statictext1.caption:='dasdasd' а вот сдесь вторая ошибка
if n=3 then statictext1.caption:='Памятник "Скорбящей Матери"';
if n=4 then statictext1.caption:='Памятник двірнику в м.Кропивницькому';
if n=5 then statictext1.caption:='Кіровоградський обласний краєзнавчий музей';
if n=6 then statictext1.caption:='6?';
if n=7 then statictext1.caption:='Де знаходться Перший памятник травмваю?';
if n=8 then statictext1.caption:='Пашкевич'
end;

end.

lmikle: Пользуемся тегами