1:
2:
3:
4:
5:

if Edit1.Text = 'DeinPasswort' then
  begin
    // Was auch immer du machen willst, z.B.
    ShowMessage('Sie haben das richtige Passwort eingegeben');
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

if Edit1.text='66bd452e37c31f73df140f3f474889ed' then begin
    showmessage('Yea right:-)!');
    close;
  end else begin
    showmessage('Oh no dudu!');
    Edit1.SelectAll;
    Edit1.SetFocus;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  MD5: TDCP_md5;
  Digest: array [0..15] of Byte;  // MD5 produces a 128bit digest (16bytes)
  Reslt: String;
  Index: Integer;
begin
  MD5 := TDCP_md5.Create(Self);    // create the hash
  MD5.Init;                       // initialize it
  MD5.UpdateStr(Edit1.Text);      // hash the string
  MD5.Final(Digest);              // produce the digest
  MD5.Free;
  
  Reslt := '';
  for Index := 0 to 15 do
    Reslt := Reslt + IntToHex(Digest[Index], 2);
  
  if Reslt = 'DeinPasswortHash' then
    begin
      {...}
    end;                           
end;