[deltas]

А толку? Что помешает пользователю запустить программу из "Пуск>Все программы..." или прямо с корневой папки программ?

Хотя если очень надо то вроде так:

Код:

var
  Form1: TForm1;
  AppIni: TIniFile;
  pass, programm:String;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
AppIni := TIniFile.Create('conf.ini');
pass:=AppIni.ReadString('Pass','pass1','');
programm:=AppIni.ReadString('Prog','prog1','');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If pass=Edit1.Text then shellexecute(programm,...................);
end;

end.