procedure TForm1.Button1Click(Sender: TObject);
var str: AnsiString;

begin
  if IsFrameCont then
     begin
       if MinFrame = false then
          begin
            IHTMLFrameSetElementDisp(HTMLElementCollection(HTML_Doc.All.Tags('FRAMESET')).item(1,varEmpty)).cols:='0,*';
            MinFrame := true;
          end
       else
          begin
            IHTMLFrameSetElementDisp(HTMLElementCollection(HTML_Doc.All.Tags('FRAMESET')).item(1,varEmpty)).cols:='175,*';
            MinFrame := false;
          end;
     end;
end;