asm update problem

[UniPerson]

Guten Tag,
ich habe ein Problem mit einen Asm Code ,der Asm Code ändern den UserIcon per command click für den univoice control v 128 nun ist eine neue univoice version rausgekommen v 308 nun funkioniert der asm code nicht mehr für die neue version.Diesen Code hat mir damals ein Freund gemacht und hat super funktioniert für die v128 aber leider kann man den nicht in der neuen version v308 übernehmen,deshalb wollte ich wissen wir mein Freund es damals gemacht hat,dann kann ich das ändern so das es auch in der neuen Version Funkioniert!

hier der code

Delphi-Quellcode:

type 
TArrc = array[0..5] of byte; 
var 
Call2 : integer = $22B0134; <<< ?????woher kommt das und was ist das? 
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; < was das von wo kommt das? 
Call2b:=Call2+uvbase; 
p3:=Pointer(700+integer(uvbasep)); <<< ? 
p4:=pointer(integer(p3)+$2FC); <<<< ? 
p4:=pointer(p4^+$8; <<< ? 
p1:=pointer(p4^+$1; <<<was macht das? 
p1^[0]:=s; 
p5:=pointer(Call2); 
asm 
push edx 
mov edx,p4 
mov edx,[edx] 
mov eax,p3 
mov eax,[eax+$304] << wasn das? woher kommt das? 
call Call2b 
pop edx 
end; 
end;

ich arbeite auch mit ollydb.

Frage ist nun wie kann ich den Code umädern das es auch in der neuen V funkioniert?
und wie hat das mein freund damals gemacht?

Danke

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]
[edit=MrSpock] Mfg, MrSpock[/edit]