IsStrHex

// girilen strn verideki değer hexe decimal mi kontrol eder.
function TFrmMain.IsHex(s: string): boolean;
var
  i: integer;
begin
  Result := True;
  for i := 1 to length(s) do
    if not (char(s[i]) in ['0'..'9']) and not (char(s[i]) in ['A'..'F']) then
    begin
      Result := False;
      exit;
    end;
end;