реализация пароля не работает хелп

[мазер]

Реализовать в проекте ввод пароля для входа пользователя в программное приложение. Создать форму типа PasswordDialog (File\New\Dialogs), создать обработчик события. Подскажите с чего начинать, подключать форму умею пасворд диалог не работает пишу на делфи6

[SuperVisor]

Создай форму пароля, один edit, две кнопки - Ok, Cancel.Форма запускается первой. Если пароль верный - создаем главное окно. Можно по другому: при создании главной формы создаем форму - проверщик пароля и отображаем с помощью ShowModal.

[мазер]

Первая форма выходит заставка, а потом должна выходить форма с паролем, меня интересует как в пасовском файле прописать обработку события для внесения записи в эдит. Сессия начинается 8 января. надо успеть все сделать, сделать хочу сама, чтобы понять.

[SuperVisor]

Сообщение от мазер

Первая форма выходит заставка, а потом должна выходить форма с паролем, меня интересует как в пасовском файле прописать обработку события для внесения записи в эдит.

Поля TEdit есть несколько обрабочиков событий ввода:
OnChange: При изменении значения поля,
OnKeyPress: При нажатии кнопки в поле (Скорее всего тебе это и нужно) Вот Пример на это действие:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not ((key>='0') and (key<='9') or (key=#8) or (key=#13)) then key:=chr(0);
end;

Этот обработчик допускает введение в поле только цифр и нажатие клавиш DEL и BS остальные символы - не принимаются (а если быть точнее, то принимаются, но как нулевой символ).