Проблема имитации нажатия клавиш

[xrenomx]

Скачал delphi пару дней назад и еще не освоился...возникли проблемы.
Делаю все в такой последовательности:
File->New->Application->двойной щелчок мыши в окне Form1->открывается вкладка Unit1.pas и вбиваю следующий код:

procedure TForm1.cmbStartClick(Sender: TObject);
begin
keybd_event(VK_LWIN, 0, 0, 0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

При запуске выдает ошибку declaration of class TForm1 is missing or incorrect.

Может что-то не так в коде?Или у меня не правильная последовательность действий?

__________________
использую Delphi 7

[veniside]

cmbStartClick() -- это откуда взялось? Если сделать "File->New->Application->двойной щелчок мыши в окне Form1", то должно быть такое:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

[xrenomx]

Ну да,это и появляется...

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Убираю это...и подставляю код который указан выше.

cmbStartClick() по крайне мере такая команда указана в моей книжке =)

[xrenomx]

Такой команды не существует чтоли?)

[Аватар]

Наверно в книжке и объект cmbStart на форме создан, а procedure TForm1.cmbStartClick(Sender: TObject); это обработчик OnClick этого объекта

[veniside]

> по крайне мере такая команда указана в моей книжке =)

тогда выбрось её, если простейшие примеры без помощи форума не можешь по ней сделать.

[ArtGrek]

а такое сообшение когда сохраняли проект было?

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

[xrenomx]

Не появляется...сохраняет проект без ошибок.

[ArtGrek]

вот попробуи, перекин сюда проецт если что

[xrenomx]

Такс...скачал...запустил Unit1.dfm,стер код который там был изначально и вбил

procedure TForm1.cmbStartClick(Sender: TObject);
begin
keybd_event(VK_LWIN, 0, 0, 0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

Жму Run и выходит ошибка снизу:
RLINK32: Unsupported 16bit resource in file "Unit1.dfm"