uses ShellAPI
procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
//ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer)
ShellExecute(Application.Handle,'open','f:/IESUPP.chM','SW_MAXIMIZE','f:/' ,i)
end;