if Edit1.Text='Ваш пароль'  
then Form2.Show // Form2 это твоя программа,вот так!
else  
showmessage ('пароль не верный');

USES SHELLAPI;

Procedure AutoSendMail;
Var
EMailDestinationString,SubjectString,Line1String,Line2String,mailstring:String;

BEGIN
EMailDestinationString:='gbamber@bamber.com';
SubjectString:='Message Subject';
Line1String:='This is the first line';
Line2String:='This is the second line';

// Можно использовать несколько адресов, разделяя их точкой с запятой //
mailstring:='mailto:' + EMailDestinationString +
'?subject=' + SubjectString +
'&body='+ Line1String +
'%0d' + Line2String ... Читать дальше »