1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

type
 TArrc = array[0..5] of byte;
var
 Call2 : integer = $22B0134;
 uvbase:   integer;
 uvbasep : ^integer;
procedure TForm1.Timer4Timer(Sender: TObject);
var
s : OleVariant;
 p1 : ^TArrc;
 p2 : ^TArrc;
 p3,p4,p5 : ^integer;
 call2b : integer;
begin
 s := edit6.Text;
 uvbasep:=pointer(univoicex1.ControlInterface);
 uvbase:=uvbasep^-$2309864;
 Call2b:=Call2+uvbase;
 p3:=Pointer(700+integer(uvbasep));
 p4:=pointer(integer(p3)+$2FC);
 p4:=pointer(p4^+$88);
 p1:=pointer(p4^+$18);
 p1^[0]:=s;
 p5:=pointer(Call2);
 asm
   push edx
   mov edx,p4
   mov edx,[edx]
   mov eax,p3
   mov eax,[eax+$304]
   call Call2b
   pop edx
 end;
 end;