[NumLock]

такое подойдет:

PHP код:

unit Unit1;

interface

uses
  ActiveX,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  guid: TGUID;
  i: Integer;
begin
  for i:=1 to 255 do
  begin
    CoCreateGuid(guid);
    Memo1.Lines.Add(GUIDToString(guid));
  end;
end;

end. 


?
результат:

{AC7CDAAA-C80F-4F0E-B91F-41EC8BA6716F}
{049B755C-D99F-4C4B-8E9E-3C9D1A0767AF}
{2444963E-992A-46FC-9454-8CD3E4F0EA94}
{8188B285-5EB9-4AE6-A0B4-C0BA69C9DC69}
{66634182-C8CE-44FC-8DF8-0F18F1788073}
...
{F15F5FE1-219E-44CC-A5C5-50E40A711BE4}
{A265A3A3-520A-4DED-993A-91E6E73A8739}
{6FDE4DBC-FE25-46C5-8243-11463D2E7B9C}
{68D1AD21-177D-42E5-B28F-5CF8F84FC75A}
{F5FCC1AC-869A-4CDD-9C44-B30A95857399}