[Страдалецъ]

Я бы сделал так:
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] - там ненужная.