Hola,
Echa un vistazo a la unidad "DateUtils" (si usas Delphi 7 contarás con ella). Entre otras funciones encuentras "FormatDateTime", que, en combinación con "Now" consigue lo que precisas, poco más o menos.
Código Delphi
[-]
ShowMessage(FormatDateTime('dd/mm/yyyy hh:mm AM/PM', Now));