[lmikle]

Это ПРОЦЕДУРА. Она не возвращает значение. Соответственно, так писать нельзя. Для возвращаемого значения у нее есть первый параметр.

Если очень хочется иметь в виде функции, то тогда так:

Код:

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(['Раз', 'Два', 'Три', 'Четыре', 'Пять']);