Проверка на шестнадцатеричный формат записи

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  buf: string;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    buf := Memo2.Lines.Text;
    if length(buf) mod 2 <> 0 then
    begin
      MessageBox(handle, PChar('Строка с данными нечетной длины'), PChar('Ошибка'), MB_ICONERROR);
      exit;
    end;
    for i := 1 to Length(buf) do
      if not (buf in ['0'..'9', 'A'..'F', 'a'..'f']) then
      begin
        MessageBox(handle, PChar('В строке с данными недопустимые символы'), PChar('Ошибка'), MB_ICONERROR);
        exit;
      end;
    FS := TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite, fmShareDenyWrite);
    Label4.Caption := 'Размер: ' + IntToStr(FS.Size) + ' Байт';
    Memo1.Text := ExtractFileName(OpenDialog1.FileName);
    buf := HexToStr(buf);
    FS.Position := StrToInt('$' + Edit1.Text);
    FS.Write(buf[1], length(buf));
    MessageBox(handle, PChar('Данные записаны и файл сохранён!'), PChar('Сообщение'), MB_ICONINFORMATION);
    FS.Free;
  end;
end;