expr

function StrPosExpressionEx(ignore: Char; s, str: string; var position: Integer): string;
var
  t: TStringArray;
  h, i, l, p, f: Integer;
  d: string;
begin
  position := 0;
  Result := '';
  l := Length(s);
  if ((l > 0) and not (l > Length(str))) then
  begin
    d := StringOfChar(ignore, 1);
    t := Explode(d, s);
    h := High(t);
    f := Pos(t[0], str);
    l := (f + Length(t[0]));
    if ((h > 0) and (f > 0)) then
    begin
      for i := 1 to h do
      begin
        p := PosEx(t[i], str, l);
        if (p > 0) then
          l := (p + Length(t[i]))
        else
          Exit;
      end;
      position := f;
      Result := Copy(str, f, (l - f));
    end;
  end;
end;

function StrPosExpression(ignore: Char; s, str: string): string;
var
  t: TStringArray;
  h, i, l, p, f: Integer;
  d: string;
begin
  Result := '';
  l := Length(s);
  if ((l > 0) and not (l > Length(str))) then
  begin
    d := StringOfChar(ignore, 1);
    t := Explode(d, s);
    h := High(t);
    f := Pos(t[0], str);
    l := (f + Length(t[0]));
    if ((h > 0) and (f > 0)) then
    begin
      for i := 1 to h do
      begin
        p := PosEx(t[i], str, l);
        if (p > 0) then
          l := (p + Length(t[i]))
        else
          Exit;
      end;
      Result := Copy(str, f, (l - f));
    end;
  end;
end;

var
  position: Integer;
  str, expr: string;

begin
  str := 'WHAAAAAAAT THE HECK IS THIS... This is just a damn test to prove the command works! OK?!';
  ClearDebug;
  expr := StrPosExpression('*', 'This * damn test * works!', str);
  if (expr <> '') then
    WriteLn('"' + expr + '"');
  expr := StrPosExpressionEx('*', 'This * damn test * works!', str, position);
  if (expr <> '') then
    WriteLn('"' + expr + '" @' + IntToStr(position));
end.