Я бы сделал так:
1. Разбил автоматом строку на слова ориентируясь на символы.
Код:
Var
SL: TStringList;
S: String;
begin
S := 'не нужная инфа:имя/фамилия:адрес:телефон.'
SL := TStringList.Create;
SL.Text := SLWrapText(S,#13#10,[':','/'],1);
2. Убрал за ненадобностью символы разделители
Код:
SL.Text := StringReplace(SL.Text,':','',[rfReplaceAll]);
SL.Text := StringReplace(SL.Text,'/','',[rfReplaceAll]);
Теперь в SL.Strings то что вам нужно, за исключением SL.Strings[0] - там ненужная.