Это ПРОЦЕДУРА. Она не возвращает значение. Соответственно, так писать нельзя. Для возвращаемого значения у нее есть первый параметр.
Если очень хочется иметь в виде функции, то тогда так:
Код:
function CreateStrArray(items : Array Of String) : TStringList;
var
I : Integer;
begin
Result := TStringList.Create;
For I := Low(items) To High(items) Do
Result.Add(items[i]);
end;
И тогда вызов:
Код:
var
CurrentString : TStringList;
...
CurrentString := CreateStrArray(['Раз', 'Два', 'Три', 'Четыре', 'Пять']);