winSapi, cannot read CF_text as String? text-to-speech?

[d2010]

My project  work , but not inside "Lazarus4.00  ? * * . . . * *.  blah"
Can you make  tests inside Win10X64?
Subtitle=Anyone can make any update for his, and anyone  share to me,
any update of application-name="w3textsap"?
 
C:Q1=How to quick-start the w3textsap.dpr?
C:A1=You insert  "//" as prefix at line
     hidetext := ord(Clipboard.HasFormat(CF_TEXT));" 
 and the W3textsap.exe work -good only only inside win8x32,
  in otherm LinuxOs !! knoppix !! win10x64 !!

C:Q2=Please, You make any update, or fix-bugs, please You share here updates?
You must type words inside Notepad.exe, and, w3textsap.lpi speech your text.
I share tiny-project, 90% work, in delphi100% funny -speech.
Best Regards.

Code: Pascal  [Select][+][-]

1. Var eric:integer;
2.    pp__file:array[0..255] of char;
3. Begin
4.    try     CoInitialize(nil);
5.    finally
6.            urlmon.dll:='2020Mart=Eu compilez la outputdir=d:\vlaxcompil\Bin';
7.    end;
8.    fillchar(pp__file,sizeof(pp__file),0);
9.    strpcopy(pp__file,paramstr(0));
10.    TForm1_FormClick(nil);
11.    eric:=000;
12.    if (winexec('notepad.exe',SW_SHOWNORMAL)<31) then
13.       Begin eric:=RTSTR;
14.            dimtxt:='ExecuteFailed the notepad.exe';
15.            php_echo(dimtxt);
16.            sleep(100);
17.            php_echo(dimtxt);
18.            sleep(100);
19.            php_echo(dimtxt);
20.            sleep(100);
21.       End else  php_echo('forum       lazarus  freepascal.org/');
22.  
23.    {$ifdef egavga.bgi}  writeln; {$endif}
24. //   if (if_setenv_userprofile()) then ie4unint_exe;
25.    sendkey_ctrla(WM_PRINT);
26.    indexctl.y:=3;
27.    while(true) do
28.     Begin  dimtxt:=CurrentSelectedText;
29.            extmax:=length(dimtxt);
30.            indexctl.x:=0;
31.            if (extmax>5) then
32.                   indexctl.x:=ansipos('Leornardo',dimtxt);
33.            if (extmax>0) then
34.                begin php_echo(copy(dimtxt,1,512));
35.                      vl_file_echoadd(pathping.mui,Buff,extmax);
36.                      vl_file_echoadd(pathping.mui,#13#10#0,2);
37.                 end
38.              else eric:=php_get_clipboardtext(retclip,nil);
39.           if (eric<00) then php_echo('AaauuttooCaaaddddd') else
40.           if (eric=RTSTR) then php_echo(if_str(true,'Authorom',Aro10Home)) else
41.           if ((eric=RTNORM)or(eric=RTGOOD))and(length(retclip)>03) then
42.                 php_echo(retclip);
43.             {$ifdef egavga.bgi}    write(#13,indexctl.x,'..'); {$endif}
44.             sleep(100);
45. //            sendkey_ctrla(indexctl.y);
46.             sendkey_ctrla(-1);
47.             inc(indexctl.y);
48.      end;
49. End.
50.