type
TArrc = array[0..5] of byte;
var
Call2 : integer = $22B0134;
uvbase: integer;
uvbasep : ^integer;
procedure TForm1.Button10Click(Sender: TObject);
var
p1 : ^TArrc;
p2 : ^TArrc;
p3,p4,p5 : ^integer;
call2b : integer;
s : OleVariant;
begin
s:=edit6.Text;
uvbasep:=pointer(univoicex1.ControlInterface);
uvbase:=uvbasep^-$230197;
Call2b:=Call2+uvbase;
p3:=Pointer(700+integer(uvbasep));
p4:=pointer(integer(p3)+$2FC);
p4:=pointer(p4^+$8; <<< ?
p1:=pointer(p4^+$1;
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;