procedure TForm1.Timer1Timer(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
hour1,min1,sec1:string;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
DecodeTime(Present, Hour, Min, Sec, MSec);
hour1:=inttostr(hour);
if length(hour1)=1 then
hour1:='0'+hour1;
min1:=inttostr(min);
if length(min1)=1 then
min1:='0'+min1;
sec1:=inttostr(sec);
if length(sec1)=1 then
sec1:='0'+sec1;
form1.StatusBar1.Panels[1].Text:='【'+inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日'
+hour1+'时'+min1+'分'+sec1+'秒】';
end;