program new; var x : TRegExp; begin x := TRegExp.create; x.Expression := 'W?alk'; x.InputString := 'Lets talk bitch!'; Writeln(x.ExecPos(1)); writeln(x.Match[0]); x.free; end.