edit1.Text:=datetimetostr(now);

edit1.Text:=datetostr(now);

edit1.Text:=timetostr(now);

edit1.Text:=datetostr(date);