var
Expresion: TRegEx;
Arreglo: TArray<string>;
Elemento: String;
const
Patron = ' - ';
begin
Expresion := TRegEx.Create(EmptyStr);
Arreglo := Expresion.Split('Jirafa - Elefante - Sapo - Ardilla', Patron);
for Elemento in Arreglo do
begin
ShowMessage(Elemento);
end;
end;