Как отформатировать временную метку Unix в Delphi?

У меня есть

var timestamp: Longint;  
timestamp := Round((Now() - 25569.0 {Unix start date in Delphi terms} ) * 86400);

, который я использую в качестве первичного ключа в некоторых материалах MySql.

Но я также хотел бы отформатировать дату / время, например PHP date () функция делает.

Есть ли у кого-нибудь фрагмент кода или URL?