Hola JerS.
Probé este código en W7 y funciona:
Código Delphi
[-]
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;
Pero para que la aplicación perciba el cambio hay que salir de ella y volver a entrar.
Saludos.