var
x,y,z: array[0..2] of integer;
s: string = 'User.MoveTo(54754,35674,-1217); User.MoveTo(9764,1258,573); User.MoveTo(9836,52964,1649);';
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
rs: string;
begin
s:= StringReplace(s,');',',',[rfReplaceAll]);
rs:= '';
for i := 1 to Length(s) do
if s[i] in ['0'..'9','-',','] then rs:= rs + s[i];
for i := 0 to 2 do
begin
x[i]:= StrToInt(Copy(rs,1, Pos(',',rs)-1));
Delete(rs,1,Pos(',',rs));
y[i]:= StrToInt(Copy(rs,1, Pos(',',rs)-1));
Delete(rs,1,Pos(',',rs));
z[i]:= StrToInt(Copy(rs,1, Pos(',',rs)-1));
Delete(rs,1,Pos(',',rs));
end;
end;