tt:=tstringlist.Create;
self.Chromium1.Browser.GetFrameNames(tt);
showmessage(inttostr(tt.Count ));


sa:= self.Chromium1.Browser.Frame[tt.Strings[strtoint(edit1.Text) ] ].Source; ;


tt.Free;
// sa:= self.Chromium1.Browser.MainFrame.Source ;

tt:=tstringlist.Create;
tt.Text:=sa;
tt.SaveToFile('c:\jisi1.txt');
tt.Free;