Добавлено (18 января 2017, 20:20)
---------------------------------------------
Действительно косяк в коде

Надо строчку добавить

procedure TFormMain.FormCreate(Sender: TObject);
var
SevenZip1:TSevenZip;
i:integer;
begin
ProgrammDirectory:=ParamStr(0);
i:=Length(ProgrammDirectory);
while ((i>1) and (ProgrammDirectory[i]<>'\')) do i:=i-1;
ProgrammDirectory:=Copy(ProgrammDirectory,1,i);

SaveResourceAsFile('7za', 'DLL', '7za.dll');
SaveResourceAsFile('html', '7Z', 'html.7z');

SevenZip1:=TSevenZip.Create(Self);
SevenZip1.ExtrBaseDir:=ProgrammDirectory;
sevenzip1.SZFileName:=ProgrammDirectory+'html.7z';
SevenZip1.Extract;
SevenZip1.Free;

//Вот эту --------------|
DeleteFile(ProgrammDirectory+'html.7z');

Chromium1:=TChromium.Create(Self);
Chromium1.Parent:=FormMain;
Chromium1.Align:=alClient;
end;