Нужен пример распознавания речи с библиотекой Speech

inc(gl_inc);
 if gl_inc > 1000 div timer1.Interval then begin

 full_answer_google:= '';
   recognize(full_answer_google,
             recognize_flag,
             recognize_text,
             recognize_accuracy);
 
   // результаты
   if gl_full_answer_google <> full_answer_google then begin
    if (recognize_text<>'Не распознано...')and(recognize_text<>'') then begin
     // делаем чего-нибудь 
     //command(recognize_text);
    end
   end;
  // запоминаем
   gl_full_answer_google:= full_answer_google;

unit Maya;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Controls, Forms,
  StdCtrls, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Panel1: TPanel;
 
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure Detect(s:string);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
 
 
var
    get_soundlevel: function: integer; stdcall;           // текущий уровень громкости
    recognize     : procedure(var
                              full_answer_google,         // полная строка ответа от сервиса
                              recognize_flag,             // признак распознавания
                              recognize_text: pansichar;  // распознанный текст
                              var
                              recognize_accuracy: integer // достоверность распознавания, %
                              ); stdcall;
    start         : procedure(threshold_level,            // уровень порога срабатывания, %
                            delay_off:                  // задержка отключения, мс
                            integer;
                            ruen:                       // язык распознавания
                            pansichar); stdcall;
    stop          : procedure; stdcall;
    speech:function(text,              // текст для озвучивания
                     myLang: pansichar): integer; // исходный язык текста
                     stdcall;
    LibHandle, LibHandle1: THandle;
 
 
function LinkProc(ProcName: string):Pointer;
begin
 result:= GetProcAddress(LibHandle, PChar(ProcName))
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 stop;
 FreeLibrary(LibHandle);
 FreeLibrary(LibHandle1);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 LibHandle:= LoadLibrary('GoogleSpeechRecognizeAPI3.dll');
 LibHandle1:= LoadLibrary('GoogleTranslateAPI.dll');
 if LibHandle1 <> 0 then speech:= GetProcAddress(LibHandle1, 'speech');
 if LibHandle <> 0 then begin
  start:= LinkProc('start');
  stop := LinkProc('stop');
  get_soundlevel:= LinkProc('get_soundlevel');
  recognize:= LinkProc('recognize');
  start(10, 1000, 'ru');
 end;
end;
 
procedure TForm1.Detect(s:string);
begin
Label2.Caption:=s;
timer1.Enabled:=false;
if AnsiLowerCase(s)='привет' then speech('Шла Саша по шоссе и сосала сушку','ru');
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 if LibHandle <> 0 then
  FreeLibrary(LibHandle);
  if LibHandle1 <> 0 then
  FreeLibrary(LibHandle1);
end;
 
// визуализация текущего уровня REALTIME
procedure TForm1.Timer1Timer(Sender: TObject);
var temp: integer;
    //
    full_answer_google,          // полная строка ответа от сервиса
    recognize_flag,              // признак распознавания
    recognize_text: pansichar;   // распознанный текст
    recognize_accuracy: integer; // достоверность распознавания, %
begin
 if (LibHandle  <> 0)  and (LibHandle1  <> 0) and(CheckBox1.Checked=true)then begin
 
 temp:= get_soundlevel;
 panel2.Height:= 100 * temp div 100;
 label1.Caption:= format('%d', [temp]) + '%';
 
 // распознать REALTIME по превышению порога с задержкой
  full_answer_google:= '';
  recognize_flag:= '';
  recognize_text:= '';
  recognize(full_answer_google,
            recognize_flag,
            recognize_text,
            recognize_accuracy);
   if recognize_flag='Распознано...' then
   begin
 
   Detect(recognize_text);
   timer1.Enabled:=true;
   end;
 end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Detect(Edit1.Text);
end;
 
end.