Можно в юните завести глобальную переменную, а в процедуре жима кнопок записывать в неё метку
Код:
...
var
Bpess: integer;
...
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Bpess:= 2;
end;
а в коде так
Код:
...
if Bpress = 2 then WebBrowser1.Navigate(WideString(GetCurrentDir())+'/lab/' +
TreeView1.Selected.Text+'.mht');
...