kann man diesen code vereinfachen?

[UniPerson]

Delphi-Quellcode:

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;

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]