На будет нужна 2 компоненты Edit закладки Standart и компонент Button закладки Standart.
Начинаем создаем 2 формы.
На форме 1 ставим компоненты
На компоненте Button создаем обработчик событий OnClick.
И там пишем:
if Edit1.Text='delphi-borland.my1.ru' // Здесь прописан пароль в каторый будем вводить в Edit
then Form2.Show // Form2 это твоя программа,вот так!
else showmessage('Не верный пароль') // Это сообщения появляетса когда пароль введин не правильно.
И у нас мало выйти такая процедура:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='delphi-borland.my1.ru'
then Form2.Show // Form2 это твоя программа,вот так!
else showmessage('Не верный пароль')
end;
