Перевести функцию из Perl в Delphi

Алексей17 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
18.05.2008

Есть почтовый скрипт на perl, в нем генерится уникальный message-id для письма. Нужно сделать функцию на Delphi которая будет генерить этот же message-id , грубо говоря нужно перевести функцию создания этой переменной из perl в delphi.

В атаче скрипт.

Вот часть кода где подставляется нужная переменная.

my $outlook =

Received: from %FAKENAME% (%FAKEIP%)

by %HOST%; %DATE%

Message-ID:

Reply-To: %REPLY_TONAME%

From: %FROMNAME%

Нужна функция на дельфи. которая будет генерить переменную