проверка пароля

[Stilet]

Вот именно. А посему предлагаю проверку в DPR

program Project1;

uses
  Forms, dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

function pass:boolean;
begin
 result:=InputBox('Пароль','Шнель шпрехен','')='Пароль'
end;

begin
  if not pass then halt;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Ну а уж хеширование уже для автора дело второе, после при желании закрутит сам

[chertovich]

Один минус: Логин то у тебя один, а если он захочет несколько?

[chertovich]

Сообщение от Red Fish

tr1x, попробуйте сделать так:
Создаете дополнительную форму. Растягиваете ее так чтобы она закрывала собой главную форму. Затем свойство BorderStyle присваиваете значение bsNone, а свойству FormStyle - StayOnTop. Красим форму в красный цвет.
Затем возвращамся на главную форму. Кидаем на нее компонент TTimer. В его обработчике событий (он там один, если что), пишем:

Form2.Show; //Вместо числа 2 нужно поставить номер созданной формы.

Затем ставим интервал таймера на 10 или 100 единиц.
После этого снова возвращаемся на форму пароля. Здесь кидаем кнопку и поле ввода. В обработчике кнопки OnClick пишем:

var
F : String;
begin
F := Edit1.Text;
if F = '123' then
Form1.Timer1.Enabled := False;
Close; 
end

Все. Компилируем и наслаждаемся.

Немножно БыдлоКодерством попахивает.