急！关于时间 ( 积分: 200 )

如何把如下字符串格式转化datetime,最好所有的格式都能识别出来
20070101
20070101 18:03:03
2007.01.01 18:03:03
2007/01/01 18:03:03
2007-01-01 18:03:03
2007年11月26日 18:03:03
2007 11 26 18:03:03
星期一 2007 11 26 18:03:03
星期一 2007年11月26日 18:03:03

procedure TForm1.Button1Click(Sender: TObject);
var
strDateTime:string;
begin
strDateTime:=edit1.text;
if pos('.',strDateTime)>0 then
strDateTime:= AnsiReplaceText(strDateTime,'.','-')
else if pos('/',strDateTime)>0 then
strDateTime:=strDateTime
else if pos('-',strDateTime)>0 then
strDateTime:=strDateTime
else if pos('年',strDateTime)>0 then
strDateTime:=strDateTime
else if pos('/',strDateTime)>0 then
strDateTime:= AnsiReplaceText(strDateTime,'/','-')
else if pos(' ',copy(strDateTime,1,8))=0 then
begin
strDateTime:=copy(strDateTime,1,4)+'-'+copy(strDateTime,5,2)+'-'+copy(strDateTime,7,length(strDateTime));
end;
edit2.text:=datetimetostr(vartodatetime(strDateTime));
end;

星期一 2007 11 26 18:03:03
星期一 2007年11月26日 18:03:03
没做判断，也没有必要了，谁会这样导出数据

简单问题没人回答，分只有给自己了

接受答案了.