Você deve passar o FormatSettings que você ajustou como parâmetro da função StrToDate.
Também é necessário atribuir o separador que você deseja utilizar ao atributo
FormatSettings.DateSeparator.
A função StrToDate possui sobrecarga, então você pode utilizá-la de duas maneiras:
A primeira forma recebe apenas a string e converte para data com o formato ShortDateFormat padrão.
function StrToDate(const S: string): TDateTime; overload;
A segunda maneira de utilizar a função, recebe a string a ser convertida e os FormatSettings que devem ser utilizados.
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;
Segue Exemplo de utilização:
procedure TForm1.Button1Click(Sender: TObject);
var
Data: TDateTime;
FormatSettings: TFormatSettings;
begin
FormatSettings.DateSeparator := '-';
FormatSettings.ShortDateFormat := 'dd/mm/yyyy';
Data := StrToDate('01-06-2017', FormatSettings);
ShowMessage(DateToStr(Data));
end;