Zufallswert generieren?! (mit Zahlen und Buchstaben)

[toms]

Hi,

Entweder per

1) GetTempFileName

2) GUID:

Delphi-Quellcode:

uses 
  ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  ID: TGUID;
begin
  CoCreateGuid(ID);
  if CoCreateGuid(ID) = S_OK then
    Label1.Caption := Copy(GUIDToString(ID),2,36);
end;