这个可以实现,你在修改一下就可以符合你的要求了
procedure TForm1.Timer1Timer(Sender: TObject);
var
sj1:string;
bjsj1:string;
begin
label1.Caption:=timetostr(now);
sj1:=formatdatetime('hh:mm',now);
bjsj1:=formatdatetime('hh:mm',datetimepicker1.Time);
if sj1=bjsj1 then//当时间相等时,执行窗体关闭,不相等时,窗体一直显示,
form1.Close
else
form1.Show;
end;
end.