<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=us-ascii" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 11.00.10570.1001"></HEAD>
<BODY>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2 face=Arial>Dear
MR SUZINEAU,</FONT></SPAN></DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2 face=Arial>You
have given Me perfect advice. Code can be compiled with no issues. But my screen
reader even its build in OCR function from screen do not see
</FONT> The text of The button.</SPAN></DIV>
<DIV><SPAN class=341104311-25082020>Please would you try, if this code produces
button which you can see on The screen?</SPAN></DIV>
<DIV><SPAN class=341104311-25082020>Or really, button is not
presented?</SPAN></DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial></FONT></SPAN> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>program project1;</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2 face=Arial>{$mode
objfpc}</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>uses<BR> browserapp, JS, Classes, SysUtils, Web, webwidget,
htmlwidgets;</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>type<BR> TMyApplication =
class(TBrowserApplication)</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial> procedure doRun;
override;<BR>
public<BR> FMyPage:
TWebPage;<BR> FMyButton: TButtonWidget;<BR>
end;</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial></FONT></SPAN> </DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>procedure TMyApplication.doRun;</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>begin<BR>
FMyPage:=TWebPage.Create(Self);<BR>FMyButton:=TButtonWidget.Create(Self);<BR>FMyButton.Parent:=FMyPage;<BR>FMyButton.Text:='Start
The code';</FONT></SPAN></DIV>
<DIV> </DIV><SPAN class=341104311-25082020><FONT color=#0000ff size=2
face=Arial>
<DIV><BR> Terminate;<BR>end;</DIV>
<DIV> </DIV>
<DIV>var<BR> Application : TMyApplication;</DIV>
<DIV> </DIV>
<DIV>begin<BR> Application:=TMyApplication.Create(nil);<BR>
Application.Initialize;<BR> Application.Run;<BR>
Application.Free;<BR>end.<BR></FONT></SPAN></DIV></BODY></HTML>