EAccessViolation - warum?

[Klaus01]

Delphi-Quellcode:

function Separate_Prims_From_nWebZE(value: String): T2KeyParts; 
var i :Integer; 
    str_Prims, str_nWebZE: String; 
begin 
str_Prims:='';  // eingefügt

for i := 1 to (length(value)- 3) do 
begin 
    str_Prims := Str_Prims + value[i];                //  <--- keine EAccessViolation 
end; 

for i := (length(value)- 3) to (length(value)) do      
begin 
    str_nWebZE[i] := value[i];                       // hier solltest Du es auch ändern.
end; 

result[1] := strtoint(str_Prims); 
result[2] := strtoint(str_nWebZE); 
end;

Grüße
Klaus