procedure TForm1.FormShow(Sender: TObject);
begin
Caption:= TimeToStr(Now)
end;
procedure TForm1.btn24HrsClick(Sender: TObject);
begin
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'HH:mm:ss')
end;
procedure TForm1.btn12HrsClick(Sender: TObject);
begin
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'hh:mm:ss')
end;