SplitStr gera Erro

Olá pessoal. Estou com uma dúvida na função SplitStr. Coloquei meu código abaixo e poderia me dizer qual é o erro????

var_Data := Edit3.Text;
Dia := SplitString(var_Data, '/')[0];
Mes := SplitString(var_Data, '/')[1];
Ano := SplitString(var_Data, '/')[2];

Label7.Caption := Dia;
Label8.Caption := Mes;
Label9.Caption := Ano;

Quando eu executo ele dá "Access Violation e um nº grande..rsrrsrsrs". Enfim, declarei StrUtils na use.