{$L speech.obj}

Procedure  sbts_init;external;
Procedure  sbts_settings(ts_gender,ts_tone,ts_volume,ts_pitch,ts_speed : Integer);external;
Procedure  sbts_say(s:string);external;


var
   str : string;

begin
     sbts_init;
     sbts_settings(0,1,6,1,5);
     sbts_say('Hallo dear');
end.

.