Undeclared identifier: 'curCaps'

[xrenomx]

Всем здрасьте.
Возникает проблема при создании "бегущих огней" на клавиатуре.

Вот код целиком:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if curCaps then
begin
PressKey(VK_NUMLOCK);
PressKey(VK_CAPITAL);
curCups := False;
curNum := True;
end
else if curNum then
begin
PressKey(VK_SCROLL);
PressKey(VK_NUMLOCK);
curNum := False;
curScroll := True;
end
else
begin
PressKey(VK_CAPITAL);
PressKey(VK_SCROLL);
curScroll := Flase;
curCaps := True;
end;

end.

После запуска выдает: Undeclared identifier: 'curCaps'
Undeclared identifier: 'PressKey'
Undeclared identifier: 'curNum'
Undeclared identifier: 'curScroll'
....

Выручайте)

[vovk]

Это переменные их вообщето объявлять надо..

[Аватар]

Имя curCups в D7 не нашел. Что это за имя, в каком Unit-е находится? Остальные не распознанные имена наверно тоже из этой оперы

[xrenomx]

Сообщение от vovk

Это переменные их вообщето объявлять надо..

Не подскажите как?)

[ArtGrek]

var
 curScroll, curCaps, curNum: Boolean;
begin

PressKey - что ты етим хотел сказать?

P.S. что б научица надо не только писать, но и читать!)

[vovk]

var curCups, curNum :boolean;

както так

[xrenomx]

...
//с caps lock на num lock
PressKey(VK_NUMLOCK);
PressKey(VK_CAPITAL);
curCaps := False;
curNum := True;
end
...

Правда теперь вылезает Missing operator or semicolon здесь PressKey(VK_NUMLOCK)

[Аватар]

А как насчет точки с запятой после команды?

[vovk]

честно говоря мне в лом разбиратся в коде, который вы сами не желаете понимать

[xrenomx]

Стоит...просто забыл указать,сейчас отредактирую.