Error en funcion para dividir cadenas

[vgpastor]

Hola buenas tardes.

Llevo poco tiempo con esto de delphi y el embarcadero; y he de decir que este foro me ha resuelto muchas de mis dudas de novato.¡, asi que de antemano gracias a todos.

Os presento a mi funcion:

Código Delphi [-]
function obtener_delista(lista:Tarray_simple;delimitador:char;posicion:integer):tarray_simple
var
l:integer;
begin
for l:=0 to length(lista) do
begin
with TstringList.Create do
try
delimiter:= delimitador;
delimitedtext:= lista[l];
result[l] := string[posicion];
finally
Free;
end;
end;
end;

Bueno pues el problema es que al llamarla me sale un error de exception class EAccessViolation address004045B4

Llevo unos dias cambiando de todo y siemrpe dice lo mismo y ya no se por donde continuar, porfavor podrian echarme una mano(no al cuello,aunk me la merezca).

Un Saludo