можно ещё memo использовать
PHP код:
function toarr(s: string; form1: twincontrol): tmass;
var
m: TMemo;
i: integer;
begin
m := TMemo.Create(Form1);
m.Parent := Form1;
m.Lines.Delimiter := ',';
m.Lines.DelimitedText := s;
setlength(result, m.Lines.Count);
for i := 0 to m.Lines.Count-1 do
result[i] := StrToIntDef(m.Lines[i], -1);
m.free;
end;