Trouver la MAC address

unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private { Private-Deklarationen}
public { Public-Deklarationen}
end;
var Form1: TForm1;
function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll';
implementation
{$R *.DFM}

function Get_MACAddress: string;
var
g : TGUID;
i : Byte;
r : Word;
begin
Result := '';
CoCreateGUID(g);
for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Get_MACAddress);
end;
end.