1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.Button1Click(Sender: TObject);
  var
    Datei,
    Zeile: TStringList;
    i: Integer;
    MAC: String;

  function IsMAC(const S: String): Boolean;
    const
      OK: Set of Char = ['0'..'9','A'..'F','-'];
    var
      i: Integer;
  begin
    Result := TRUE;
    for i := 1 to Length(S) do
      Result := (Result and (UpCase(S[i]) in OK));
  end;

begin
  Datei := TStringList.Create;
  Zeile := TStringList.Create;
  Datei.LoadFromFile('D:\MAC.TXT');
  for i := 0 to Datei.Count-1 do begin
    Zeile.CommaText := Datei.Strings[i];
    if (Zeile.Count > 2) then begin
      MAC := Zeile.Strings[Zeile.Count-1];
      if (Length(MAC) = 17) then
        if (IsMAC(MAC)) then
          ListBox1.Items.Add(MAC);
    end;
  end;
  Zeile.Free;
  Datei.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Type
 TGUID=record
  A,B:word;
  D,M,S:word;
  MAC:array[1..6] of byte;
 end;

function GetMACAddress():String;
var
 UuidCreateFunc : function (var guid: TGUID):HResult;stdcall;
 handle : THandle;
 g:TGUID;
 WinVer:_OSVersionInfoA;
 i:integer;
 ErrCode: HResult;
begin
 WinVer.dwOSVersionInfoSize := sizeof(WinVer);
 getversionex(WinVer);

 handle := LoadLibrary('RPCRT4.DLL');
 if WinVer.dwMajorVersion >= 5 then {Windows 2000 }
  @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential')
 else
  @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate') ;

 UuidCreateFunc(g);
 result:='';
 for i:=1 to 6 do
   result:=result+IntToHex(g.MAC[i],2);
end;