Here is how you do it..
procedure TCustomLoad.OnLoadEnd(const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
var
data:tstringlist;
begin
data:=tstringlist.create;
if frame.IsMain then
data.text:=frame.Source; // HTML Source
end;
data.free;
end;