function GetNewID(Prefix: String): string;
var
reg: array [1 .. 7] of word;
i: integer;
begin
{ EDIT: Vou por mais estas linhas abaixo, para que o prefixo nunca
tenha mais de 2 caracteres, e assim fique fixo o tamanho 16 bytes  }
if length(Prefix) > 2 then
Prefix := Copy(Prefix, 1, 2)
else
while length(Prefix) < 2 do
Prefix := ' ' + Prefix;
 
Result := '';
DecodeDate(Date, reg[1], reg[2], reg[3]);
reg[1] := StrToInt(Copy(IntToStr(reg[1]), 3, 2));
 
{ Esta corrige o ano para apenas dois digitos, por forma a ser inferior a
255. em vez de reg[1] estava a variavel ano. }
DecodeTime(Time, reg[4], reg[5], reg[6], reg[7]);
reg[7] := reg[7] div 4; // esta corrige os milisegundos
randomize;
for i := 1 to 7 do
begin
if (i >= 2) and (i <= 6) then
reg[i] := reg[i] + random(100);
 
{ O random é uma segurança adicional, pois como o ano e os milisegundos não
são usados na totalidade, havia uma pequena possibilidade de sair
duplicado... Assim é quase impossivel }
Result := Result + IntToHex(reg[i], 2);
end;
Result := Prefix + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( GetNewID('SD') );
end;