function GetLeft(sText, sepStr: string): string;

var

  p: Integer;

begin

  p := Pos(sepStr, sText);

  if p =  then Exit('');

  Result := Copy(sText, , p - );

end;

function GetRight(sText, sepStr: string): string;

var

  p: Integer;

begin

  p := Pos(sepStr, sText);

  if p =  then Exit('');

  Result := Copy(sText, p + Length(sepStr), Length(sText));

end;

function SplitString(sText, sepStr: string): TStringList;

var

  p: Integer;

  str: string;

begin

  Result := TStringList.Create;

  p := Pos(sepStr, sText);

  while p >  do

  begin

    str := Copy(sText, , p - );

    Result.Add(str);

    Delete(sText, , p + Length(sepStr) - );

    p := Pos(sepStr, sText);

    if (p = ) and (Length(sText) > ) then

      Result.Add(sText);

  end;

end;