Delphi ошибка в програме

[2009]

Здравствуйте, не могу понять, где ошибка в программе

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
label4.Caption:='';
if key=#13 then num1:=ListBox1.ltemlndex;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
if key=#13 then begin
case ListBox2.ItemIndex of
  0: num2:=2;
  1: num2:=1;
  2: num2:=3;
  3: num2:=0;
  end;
  end;
  if num1=num2 then begin
  Label4.Caption:='Правильно'
  c:=c+1
  end
  else Label4.Caption:='Ошибка';
  if c=4 then ShowMessage('Тест окончен')

end;

end.

Исходник.rar

[Лукманов Александр]

var
  Form1: TForm1;              
  num1, num2, c: integer;   - ЗДЕСЬ НАДО УКАЗЫВАТЬ ВСЕ ПЕРЕМЕННЫЕ  
  key: char;  
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
label4.Caption:='';
if key=#13 then num1:=ListBox1.itemindex;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
if key = chr(13) then begin             - ОПЕРАТОР НАЖАТИЯ КЛАВИШИ
case ListBox2.ItemIndex of
  0: num2:=2;
  1: num2:=1;
  2: num2:=3;
  3: num2:=0;
  end;
  end;
  if num1=num2 then begin
  Label4.Caption:='Правильно';
  c:=c+1;                                - СТАВИТЬ ТОЧКУ С ЗАПЯТОЙ
  end
  else Label4.Caption:='Ошибка';
  if c=4 then ShowMessage('Тест окончен')

end;

end.

[2009]

Программа написана на Delphi7

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
label4.Caption:='';
if key=#13 then num1:=ListBox1.ltemlndex;  - ОШИБКА ВЫВОДИТСЯ ЗДЕСЬ
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
if key=#13 then begin
case ListBox2.ItemIndex of
  0: num2:=2;
  1: num2:=1;
  2: num2:=3;
  3: num2:=0;
  end;
  end;
  if num1=num2 then begin
  Label4.Caption:='Правильно'
  c:=c+1
  end
  else Label4.Caption:='Ошибка';
  if c=4 then ShowMessage('Тест окончен')

end;

end.

Если не сложно переделайте исходник

[Лукманов Александр]

var
  Form1: TForm1;
  num1, num2, c: integer;
  key: char;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
label4.Caption:='';
if key= chr (13) then begin
num1:=ListBox1.itemindex;
listbox2.ItemIndex:=-1;
end;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
if key = chr(13) then begin
case ListBox2.ItemIndex of
  0: num2:=2;
  1: num2:=1;
  2: num2:=3;
  3: num2:=0;
  end;

  end;
  if num1=num2 then begin
  Label4.Caption:='Правильно';
  c:=c+1;
  end
  else Label4.Caption:='Ошибка';
  if c=4 then ShowMessage('Тест окончен');

end;

end.

Вот рабочий исходник. Думаю сделайте лучше кнопку для проверки. А то пользователь замучается жать на Enter

[2009]

Спасибо программка работает вот только неправильно В любом случаи выскакивает слова правильно, а должно выскакивать слово ошибка при не правильном выборе ответа Вот архив с программкой, test.rar кто может помогите!!

[mihali4]

Вот, посмотрите:
3m.rar
Только я "почикал" вашу склонность к гигантизму...
И добавил кое-что как намек на перспективу.

[2009]

ОГРОМНОЕ СПАСИБО За перспективу респект!!!!