对于时间的函数----如何操作

Question

我想用EDIT来输入时间，然后跟系统时间对比，要用什么函数？
 if edit1.text=systemtime then
   exit window
 else
   .......
能否用input来作为时间的输入呢？如果行的话要怎么用啊？调试了几次都不行，来这里请各位大哥大姐们帮帮，俺还是在学校，学校的老师很垃圾，问了都说没弄这个DELPHI，我晕了~~~~
 先谢谢了！！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateSeparator := '-';
  ShortDateFormat := 'mm/dd/yy';
  if MaskEdit1.Text =  DateToStr(Date) then
  showmessage('ok');
end;

Answer 2

因为EDIT.TEXT是文本格式你要把时间格式转化为文本格式,TIMETOSTR(TIME)
 不过你要在EDIT中中输入的格式一定要与时间格式相对应