[GriLab]

Вот пример функции:

Код:

function AppendList (AList: TStringList): Integer;
begin
  Result := AList.Add('Это новая строка!');
end;

Используем так:

Код:

...
Index := AppendList(MyStrings);
ShowMessage('Добавлена строка с индексом ' + IntToStr(Index));
ShowMessage('Текст строки: ' + MyStrings[Index]);
...