Button1 Caption ставим "Найти файл"
Button2 Caption ставим "Открыть файл"

В var добавляем:

HTMLFile : Array[0..79] of Char;

Создаем обработчик событий OnClick в Button1, и туда пишем:

If OpenDialog1.Execute then
begin
StrPCopy(HTMLFile, OpenDialog1.FileName);
Button2.Enabled := True;
label1.Caption:= OpenDialog1.FileName;
end;

Создаем обработчик событий OnClick в Button2, и туда пишем:

ShellExecute(Handle, 'open', HTMLFile, nil, nil, SW_SHOWNORMAL);

Этот пример будет открывать любые файлы, программой, которая стоит у вас по умолчанию для данного типа файла, причем для этого код менять не нужно.