unit Unit2;

interface
uses sysutils, strutils, classes;

function alliances(allystring:string):Tstrings;

implementation

function getTextBetweenStrings(const source, startStr, endStr: String;
  var offset: Integer; includeSubstrings: Boolean = False): String;
var
  startIndex, endIndex: Integer;
begin
  startIndex := PosEx(startStr, source, offset);
  offset := startIndex + 1;

  if (startIndex > 0) then
    begin
    startIndex := startIndex + Length(startStr);
    endIndex := PosEx(endStr, source, startIndex) + Length(endStr);

    if not includeSubstrings then
      endIndex := endIndex - Length(endStr)
    else
      startIndex := startIndex - Length(startStr);

    Result := MidStr(source, startIndex, endIndex - startIndex);
    end
  else
    Result := '';

function alliances(allystring:string):Tstrings;
begin

end;

end;
end;