How to fill in Delphi using TChromium?

Question

Delphi

This code is currently being used:

procedure TForm8.Button2Click(Sender: TObject);
var
NamePole:string;
CodeStr,s:string;
begin
s:=Memo1.text;
CodeStr := 'document.getElementById("'+DopText+'").value="'+s+'";' ;
Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
end;

If instead of s you write the text on a straight line, then the filling goes.
What to do?

Answer 1

s:=Memo1.text;

s := StringReplace( Memo1.text, #13#10, ' ');