Как разбить строку на строки?

myStrkOut[1]:='5:20'; 
myStrkOut[2]:='шесть семь'; 
myStrkOut[3]:='10:30'; 
myStrkOut[4]:='восемь девять'; 
myStrkOut[5]:='20:00'; 
myStrkOut[6]:='десять';

sLen := Length(src) + 1;
bPos := Pos(')', src);
ePos := bPos + 1;
bPos := ePos;
while ePos <= sLen do begin
  if src[ePos] in [#0, ' '] then begin
    AddStr(Copy(src, bPos, ePos - bPos));
    bPos := ePos + 1;
  end;
  Inc(ePos);
end;

...
uses RegExp, ...
...
procedure TForm1.Button1Click(Sender: TObject);
var s:string; i,j:integer; r:tRegExpr;
begin
r:=tRegExpr.Create;
s:=Edit1.Text;
j:=pos(')',s);
if j>0 then s:=copy(s,j+1,length(s)-j);
r.Expression:='([\s]*)([\d]+:[\d]+){1}\s([^\d]+)';
Memo1.Lines.Clear;
s:=r.Replace(s,#13+#10+'$2'+#13+#10+'$3',true);
Memo1.Lines.Add(s);
Memo1.Lines.Delete(0);
r.Free;
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    i:integer;
begin
s:='раз два три четыре пять (231) 5:20 шесть семь 10:30 восемь девять 20:00 десять';
delete(s,1,pos(')',s)+1);
s:=s+' '; //добавим пробел
while length(s)>0 do
 begin
  if s[1] in ['0'..'9'] then //если первая цифра
   begin
    Memo1.Lines.Add(copy(s,1,pos(' ',s)-1)); /берем до пробела
    delete(s,1,pos(' ',s)); //удаляем с пробелом
   end
 else  //если не цифра
  begin
   s1:='';
   i:=1;
   while (not(s[i] in ['0'..'9']))and(i<=length(s)) do
    begin
     s1:=s1+s[i];//составляем текст
     i:=i+1;
    end;
   Memo1.Lines.Add(copy(s1,1,length(s1)-1)); //отбросим пробел в конце
   delete(s,1,length(s1)); //удаляем
  end;
 end;
 end;

//Пример строки для обработки: aStr = 140 ICTVОбсудить(62)06:00Служба розыска детей06:05Погода06:10Факты06:25Деловые факты06:35300
//Получим: aList:
(*
140 ICTVОбсудить(62)
06:00
Служба розыска детей
06:05
Погода
06:10
Факты
06:25
Деловые факты
06:35
300
*)
procedure SplitStr(const aStr : String; aList : TStrings);
const
  D = ['0'..'9'];
  StrTempl = '00:00';
var
  i, j, k, Len1, Len2, LenTempl, Pos1, Pos2 : Integer;
begin
  Len1 := Length(aStr);
  LenTempl := Length(StrTempl);
  Len2 := Len1 - LenTempl + 1;
 
  Pos1 := 1;
  Pos2 := 0;
  i := 1;
  while i <= Len2 do begin
    //Сравнение с шаблоном.
    k := i;
    for j := 1 to LenTempl do begin
      case StrTempl[j] of
        '0' : if not ( aStr[k] in D ) then Break;
        else if aStr[k] <> StrTempl[j] then Break;
      end;
      Inc(k);
    end;
    //Если найдено совпадение с шаблоном.
    if j > LenTempl then begin
      //Записываем в список текст описания.
      Pos2 := i - 1;
      if Pos1 <= Pos2 then begin
        aList.Add( Copy(aStr, Pos1, Pos2 - Pos1 + 1) );
      end;
      //Записываем в список текст, соответствующий шаблону.
      aList.Add( Copy(aStr, i, LenTempl) );
      //Перемещаем позицию правее шаблона.
      Inc(i, LenTempl);
      Pos1 := i;
    //Если шаблон не совпал.
    end else begin
      //Смещаем позицию на 1 символ вправо.
      Inc(i);
    end;
  end;
 
  //Записываем в список оставшийся текст описания.
  if Pos1 <= Len1 then begin
    aList.Add( Copy(aStr, Pos1, Len1 - Pos1 + 1) );
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitStr(Memo1.Text, Memo2.Lines);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pos1 : Integer;
  Str1 : String;
begin
  Str1 := Memo1.Text;
  Pos1 := Pos(')', Str1);
  if Pos1 > 0 then Delete(Str1, 1, Pos1);
  SplitStr(Str1, Memo2.Lines);
end;

r.Expression:='([\s]*)([\d]+:[\d]+){1}\s([^\d]+)';

r.Expression:='([\s]*)([\d]+:[\d][\d])[\s]*(.*?)';