Jak pobrać adres MAC

function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll';

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

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:=Get_MACAddress;
end;