Sorry all this is the code
unit myautohtml1;
interface
uses
ShellApi, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs;
type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
procedure TForm1.FormShow(Sender: TObject.OnClick);
begin
ShellExecute(Handle, 'open', PChar('index.htm'), nil, nil, SW_SHOW);
if Assigned(OnClick) then OnClick(Self);
Close;
end;