TChromium Quellcode in Variable schreiben

[DieDolly]

Seit ein paar Stunden versuche ich irgendwie den Quellcode vom gerade sichtbaren TChromium mit allen ausgefüllten Feldern von CEF3 in eine Variable zu bekommen aber ich schaffe es nicht. Der Code in str ist nicht derselbe wie der der gespeichert wird wenn ich Rechtsklick View source klicke.
Was ist falsch?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
 Chromium1.browser.MainFrame.LoadUrl('https://www.google.de');
end;

procedure StringVisitor(const str: ustring);
begin
 TFile.WriteAllText('1.html', str);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 CefStringVisitor: ICefStringVisitor;
begin
 Chromium1.browser.MainFrame.LoadUrl('https://www.google.de');

 CefStringVisitor := TCefFastStringVisitor.Create(StringVisitor);
 Chromium1.browser.MainFrame.GetSource(CefStringVisitor);
end;