delphi 检测是否为mac地址

function checkmac(sTmpStr:string):boolean;

var i:integer;

begin

  Result := False;

  sTmpStr := UpperCase(sTmpStr);

  if length(sTmpStr)<>17 then Exit;

  for i:=1 to 17 do

  if (i mod 3)=0 then

     begin

     if not(ord(sTmpStr[i]) in [45,58]) then exit;

     end else begin

     if not(ord(sTmpStr[i]) in [48..57,65..70]) then exit;

     end;

  Result:=True;

end;