在RICHEDIT中，怎么提取记录的开始时间和终止时间(50分)

一个RICHEDIT中，记录数据，每一条记录的前面都有一个时间
有没有相似的例子去解决这个问题，很急！
时间是字符形式的。
现在要提取两个时间。
BEGINTIME 和ENDTIME


。。。。。。。

自己分析字符串啊,然后用
datetimetostr(astring)转换成时间
要例子的话,你写比我写还快些!

你把RichEdit中具体的文本格式写出来。应该很好解决

是这样的，
时间 不同颜色的字交叉在一起，可能有两行以上
。
。
。
for i:=0 to Logform.Editor.Lines.Count-1 do
begin
if (Length(trim(s))=5) and (copy(s,3,1)=':') then
bgtime:=strtotime(copy(S,1,5)); ？
end;
for i:=Logform.Editor.Lines.Count-1 downto 1 do
begin
if (Length(trim(s))=5) and (copy(s,3,1)=':') then
entime:=strtotime(copy(S,1,5)); ？
end;
这个错在那里，我还是搞不懂，带？号的不执行